home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / utils / textloader792 / util / textloader791_src.ascii < prev    next >
Text File  |  1999-01-01  |  162KB  |  6,589 lines
  1. *************
  2. * Deck "Textloader7.79998"
  3. * Time 21:04:46
  4. * Date 01/23/99
  5. *************
  6.  
  7. *************
  8. * Card(s) in deck.
  9. *  Card "BildAnzeiger"
  10. *  Card "Hauptfenster"
  11. *  Card "Hauptfenster_e"
  12. *  Card "Locale"
  13. *  Card "Systeminfos..."
  14. *************
  15. * 5 Card(s), 5 were printed.
  16. *************
  17.  
  18. *************
  19. * Natural order of Cards
  20. *  Card "Hauptfenster"
  21. *  Card "Locale"
  22. *  Card "Systeminfos..."
  23. *  Card "BildAnzeiger"
  24. *  Card "Hauptfenster_e"
  25. *************
  26.  
  27. *************
  28. * Global Routine(s) in deck.
  29. *  Routine "AusserFunktion"
  30. *  Routine "b4"
  31. *  Routine "Beep"
  32. *  Routine "CDown"
  33. *  Routine "CDown1"
  34. *  Routine "Copy"
  35. *  Routine "CopyTM"
  36. *  Routine "CUP"
  37. *  Routine "CurPlace"
  38. *  Routine "Cut2"
  39. *  Routine "CutTM"
  40. *  Routine "Drucken"
  41. *  Routine "EdOn"
  42. *  Routine "Einfügen"
  43. *  Routine "EinfügenDATA"
  44. *  Routine "empd2"
  45. *  Routine "Ende"
  46. *  Routine "Ende2"
  47. *  Routine "EndeCloseknopf"
  48. *  Routine "EO"
  49. *  Routine "FehlerRoutine"
  50. *  Routine "LASC"
  51. *  Routine "LASC2"
  52. *  Routine "LAscii"
  53. *  Routine "Lfile"
  54. *  Routine "LHEX"
  55. *  Routine "LHEX2"
  56. *  Routine "LHEX3"
  57. *  Routine "Ltext"
  58. *  Routine "Löschen"
  59. *  Routine "MarkB"
  60. *  Routine "MarkB2"
  61. *  Routine "Marke"
  62. *  Routine "Marke2"
  63. *  Routine "Message"
  64. *  Routine "MovCur"
  65. *  Routine "OnEd"
  66. *  Routine "Paste"
  67. *  Routine "Refresh2"
  68. *  Routine "Report"
  69. *  Routine "RTF1"
  70. *  Routine "RTF2"
  71. *  Routine "RTF3"
  72. *  Routine "S"
  73. *  Routine "SetzeAttr"
  74. *  Routine "SF"
  75. *  Routine "Sicherheitsabfrage"
  76. *  Routine "SichernVorBeenden"
  77. *  Routine "Suchen"
  78. *  Routine "SysInfoUpdates"
  79. *  Routine "SysInfoUpdates2"
  80. *  Routine "Timing"
  81. *  Routine "Timing2"
  82. *  Routine "Timing3"
  83. *  Routine "Timing4"
  84. *  Routine "Timing5"
  85. *  Routine "Timing8"
  86. *  Routine "TitelUhr"
  87. *  Routine "Undos"
  88. *  Routine "wend"
  89. *  Routine "wMarke"
  90. *  Routine "wMarke-1"
  91. *  Routine "wMarke1"
  92. *  Routine "wneuz"
  93. *  Routine "wvor"
  94. *************
  95. * 65 Global routines(s), 65 were printed.
  96. *************
  97.  
  98. *************
  99. * Card "BildAnzeiger"
  100.     NoAttach
  101.     AfterAttachment
  102.         ShowPicture Bild
  103.         IfError
  104.             SetPen 1
  105.             PrintText "Bild kann nicht geladen werden! Haben Sie überhaupt ein",10,7
  106.             PrintText "Bild Ausgewählt?",10,17
  107.             PrintText "Vielleicht wird aber Ihr verwendetes Bildspeicherformat vom ",10,37
  108.             PrintText "Textloader nicht Unterstützt!",10,47
  109.             SetPen 3
  110.             PrintText "Für das Bild-Menü zu starten, bitte mit der Maus das Balkenmenü aktivieren...",10,67
  111.         EndIf
  112.         ScreenTo FRONT 
  113.     EndScript
  114.     Window "UserWindow"
  115.         Definition
  116.             Origin 0,0
  117.             Size 640,256
  118.             Title ""
  119.             NumberOfColors 16
  120.             DefaultColors 0,1,0
  121.             WindowObjects NONE 
  122.             WindowFlags ACTIVATE BORDERLESS SEPARATESCREEN TOFRONT 
  123.             VisualEffects NONE ,WAIT 
  124.         EndScript
  125.         OnCloseButton
  126.             GotoCard "Aufgeben"
  127.         EndScript
  128.         OnActivated
  129.             Nop
  130.         EndScript
  131.         OnResized
  132.             ScreenTo FRONT 
  133.         EndScript
  134.     EndObject
  135.     TextMenu "Bildschirm drucken..."
  136.         Definition
  137.             AttachTo MENU ,"BildMenü"
  138.             Font "personal",8 ; FontName, PointSize
  139.             Style PLAIN ,2,3
  140.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  141.             Text "Bildschirm drucken..."
  142.             MenuFlags NONE 
  143.             Highlight COMPLEMENT 
  144.             ShortCutKey ""
  145.         EndScript
  146.         Occurred
  147.             PrintScreen
  148.             IfError
  149.                 Do "Fehlerroutine"
  150.             EndIf
  151.         EndScript
  152.     EndObject
  153.     TextMenu "Zurück zum Textloader"
  154.         Definition
  155.             AttachTo MENU ,"BildMenü"
  156.             Font "topaz",8 ; FontName, PointSize
  157.             Style PLAIN ,2,3
  158.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  159.             Text "Zurück zum Textloader"
  160.             MenuFlags NONE 
  161.             Highlight COMPLEMENT 
  162.             ShortCutKey ""
  163.         EndScript
  164.         Occurred
  165.             GotoCard "Hauptfenster"
  166.         EndScript
  167.     EndObject
  168.     TextMenu "System-Infobar"
  169.         Definition
  170.             AttachTo MENU ,"BildMenü"
  171.             Font "topaz",8 ; FontName, PointSize
  172.             Style PLAIN ,2,3
  173.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  174.             Text "System-Infobar"
  175.             MenuFlags NONE 
  176.             Highlight COMPLEMENT 
  177.             ShortCutKey ""
  178.         EndScript
  179.         Occurred
  180.             GotoCard "Systeminfos..."
  181.         EndScript
  182.     EndObject
  183.     TextMenu "Textloader beenden"
  184.         Definition
  185.             AttachTo MENU ,"BildMenü"
  186.             Font "topaz",8 ; FontName, PointSize
  187.             Style PLAIN ,2,3
  188.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  189.             Text "Textloader beenden"
  190.             MenuFlags NONE 
  191.             Highlight COMPLEMENT 
  192.             ShortCutKey ""
  193.         EndScript
  194.         Occurred
  195.             Quit
  196.         EndScript
  197.     EndObject
  198. * End of Card "BildAnzeiger"
  199. *************
  200.  
  201. *************
  202. * Card "Hauptfenster"
  203.     BeforeAttachment
  204.         Let Doklinks=50
  205.         Let Dokoben=50
  206.         LoadSubDeck "SimpleReq","SimpleReq"
  207.         LoadSubDeck "SuchReq","SuchReq"
  208.         LoadSubDeck "ConiPalette","Palette"
  209.         LoadSubDeck "ConiAvail","Avail"
  210.         If exists ("sys:fonts/personal/8")
  211.         Else
  212.             OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Ich kann den Textloader","Font nicht finden. Bitte","zuerst Installieren!","Sonst lade ich TOPAZ/8!"
  213.             Delay 0,5,1/50
  214.         EndIf
  215.         Echo " "
  216.         Echo "Textloader von Pascal Gisin!"
  217.         Echo "============================"
  218.         Echo " "
  219.         Echo "   >>>Der starke Editor für den AMIGA...<<<"
  220.         Echo " "
  221.         Echo "©1994-98 FORCESOFT (PASCAL GISIN)"
  222.         Echo " "
  223.         Echo "             My New Nickname, FORCE!!!"
  224.     EndScript
  225.     BeforeDetachment
  226.         SaveDocument "TheDoc","ram:Txt.bak",ASCII 
  227.     EndScript
  228.     MessageFromSubDeck
  229.         If Arg1 <> ""
  230.             Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4")
  231.         EndIf
  232.     EndScript
  233.     AfterAttachment
  234.         SetWindowLimits 100,100,1000,1000
  235.         
  236.         Let Doklinks =WindowBorderLeft+3
  237.         Let Dokoben =WindowBorderTop+3
  238.         Let DokBreite =Windowwidth-WindowBorderRight-Doklinks-3
  239.         Let Dokhoehe =Windowheight-Dokoben-6
  240.         ReattachObject "Dokument"
  241.         
  242.         SetScreenTitle "»FORCE SOFT« presents the Textloader by P.Gisin ©1994-99 (Force)"
  243.         If exists("TL.key")
  244.             Let grösse =Filesize("TL.key")
  245.             If grösse = 656
  246.                 
  247.             Else
  248.                 OpenRequester "SimpleReq","Kommentar","","Textloader Information...","!Herzlich Willkommen!","Bitte schicken sie eine","Postkarte für die Registration!","!!! ES LOHNT SICH !!!"
  249.             EndIf
  250.         EndIf
  251.         If cardname = "Hauptfenster"
  252.             Let hf = "Hauptfenster"
  253.         EndIf
  254.         
  255.     EndScript
  256.     Window "UserWindow"
  257.         Definition
  258.             Origin 9,6
  259.             Title "Textloader 7.9 Deutsch"
  260.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  261.             Size 631,250
  262.             WindowFlags ACTIVATE TOFRONT 
  263.             VisualEffects NONE ,WAIT 
  264.         EndScript
  265.         OnCloseButton
  266.             OpenRequester "SimpleReq","JaNein","EndeCloseknopf","Textloader Meldung..."," ","Möchten Sie wirklich","jetzt, den Textloader beenden?"," "
  267.         EndScript
  268.         OnActivated
  269.             Nop
  270.         EndScript
  271.         OnResized
  272.             Let DokBreite =Windowwidth-WindowBorderRight-Doklinks-3
  273.             Let Dokhoehe= Windowheight-Dokoben-6
  274.             ReattachObject "Dokument"
  275.             ClearWindow
  276.             SetObjectState "Dokument",on
  277.             
  278.         EndScript
  279.     EndObject
  280.     Memo "Dokument"
  281.         Definition
  282.             MemoDocument "TheDoc" ; where the text comes from
  283.             ScrollBars RIGHT 
  284.             Origin Doklinks,Dokoben
  285.             Size Dokbreite,Dokhoehe
  286.             Border OUTLINE ,2,1 ; BorderStyle, MainPen, ExtraPen
  287.             Font "topaz",8 ; FontName, PointSize
  288.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  289.             Style PLAIN ,2,3
  290.         EndScript
  291.         OnDrag
  292.             Nop
  293.         EndScript
  294.     EndObject
  295.     TextMenu "Autor...                    »"
  296.         Definition
  297.             AttachTo MENU ,"Editormenü"
  298.             Text "Autor...                    »"
  299.             Font "personal",8 ; FontName, PointSize
  300.             Style PLAIN ,2,3
  301.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  302.         EndScript
  303.         Occurred
  304.             Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"E-Mail: PGisin@nextron.ch"
  305.             Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  306.             
  307.         EndScript
  308.     EndObject
  309.     TextMenu "SystemInfo..."
  310.         Definition
  311.             AttachTo MENU ,"Editormenü"
  312.             Font "personal",8 ; FontName, PointSize
  313.             Style PLAIN ,2,3
  314.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  315.             Text "SystemInfo..."
  316.             MenuFlags NONE 
  317.             Highlight COMPLEMENT 
  318.             ShortCutKey "?"
  319.         EndScript
  320.         Occurred
  321.             If Hilfsmodus = TRUE
  322.                 OpenRequester "HelpReq","Card_1","","Mit diesem Menüpunkt, erhalten Sie","Interresannte Infos über Speicher-,","Chip-, Fast und Ihre Systemkonfigurationen!"," "," "
  323.             Else
  324.                 GotoCard "Systeminfos..."
  325.             EndIf
  326.         EndScript
  327.     EndObject
  328.     TextMenu "Trennstrich4"
  329.         Definition
  330.             AttachTo MENU ,"Editormenü"
  331.             Font "personal",8 ; FontName, PointSize
  332.             Style PLAIN ,2,3
  333.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  334.             Text "-------------------------------"
  335.             MenuFlags NONE 
  336.             Highlight NONE 
  337.             ShortCutKey ""
  338.         EndScript
  339.     EndObject
  340.     TextMenu "Laden..."
  341.         Definition
  342.             AttachTo MENU ,"Editormenü"
  343.             Text "Laden..."
  344.             Font "personal",8 ; FontName, PointSize
  345.             Style PLAIN ,2,3
  346.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  347.             ShortCutKey "L"
  348.         EndScript
  349.         Occurred
  350.             SetObjectState "AMarke2",false
  351.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  352.             Let Laden=AskForFilename(NeueDatei,"ASCII/FTXT Datei laden...","155","39","340","180")
  353.             Let NeueDatei=Laden
  354.             If NeueDatei<>NOTHING
  355.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  356.                     Do "Beep"
  357.                     SetWindowTitle "Kann die Datei"|||NeueDatei|||"nicht laden"
  358.                 Else
  359.                     SetWindowTitle "Lade Dokument..."
  360.                     LoadDocument NeueDatei,"TheDoc"
  361.                     IfError
  362.                     Else
  363.                         SetWindowTitle "Dateiname"|||NeueDatei
  364.                     EndIf
  365.                 EndIf
  366.             EndIf
  367.             WorkWithDocument "TheDoc"
  368.             Let c=theColumnNumber
  369.             Do "undos"
  370.             
  371.             
  372.         EndScript
  373.     EndObject
  374.     TextMenu "AHLaden..."
  375.         Definition
  376.             AttachTo MENU ,"Editormenü"
  377.             Text "Lade als HEX..."
  378.             Font "personal",8 ; FontName, PointSize
  379.             Style PLAIN ,2,3
  380.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  381.         EndScript
  382.         Occurred
  383.             SetObjectState "AMarke2",false
  384.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  385.             Do "LText"
  386.             Let c=theColumnNumber
  387.             Do "undos"
  388.             MoveCursorTo STARTOF DOCUMENT 
  389.             Let THETITLE=READCNT|||"Bytes von"|||FileOf(READFILE)|||"("||FILECNT|||"Bytes) geladen"
  390.             SetWindowTitle thetitle
  391.             
  392.         EndScript
  393.     EndObject
  394.     TextMenu "Laden, Bild..."
  395.         Definition
  396.             AttachTo MENU ,"Editormenü"
  397.             Font "personal",8 ; FontName, PointSize
  398.             Style PLAIN ,2,3
  399.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  400.             Text "Laden, Bild..."
  401.             MenuFlags NONE 
  402.             Highlight COMPLEMENT 
  403.             ShortCutKey "!"
  404.         EndScript
  405.         Occurred
  406.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  407.             Let Datei=AskForFileName(Bild, "Bild auswählen! Zum laden...","155","39","340","180")
  408.             If Datei <> ""
  409.                 Let Bild = Datei
  410.                 GotoCard "BildAnzeiger"
  411.             EndIf
  412.         EndScript
  413.     EndObject
  414.     TextMenu "LadenBild(PP)"
  415.         Definition
  416.             AttachTo MENU ,"Editormenü"
  417.             Font "personal",8 ; FontName, PointSize
  418.             Style PLAIN ,2,3
  419.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  420.             Text "LadenBild(PP)"
  421.             MenuFlags NONE 
  422.             Highlight COMPLEMENT 
  423.             ShortCutKey ""
  424.         EndScript
  425.         Occurred
  426.             If exists("Sys:c/PPshow")
  427.                 Dos "Run >NIL: <Nil: Sys:c/PPshow"
  428.             Else
  429.                 Let Fehler=AskForResponse("Leider konnte PPSHOW nicht gefunden werden!","Anzeigeproblem...","Schade")
  430.                 If Fehler=1
  431.                     DisableObject "LadenBild(PP)"
  432.                 EndIf
  433.             EndIf
  434.         EndScript
  435.     EndObject
  436.     TextMenu "TrennstrichX1"
  437.         Definition
  438.             AttachTo MENU ,"Editormenü"
  439.             Font "personal",8 ; FontName, PointSize
  440.             Style PLAIN ,2,3
  441.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  442.             Text "-------------------------------"
  443.             MenuFlags NONE 
  444.             Highlight NONE 
  445.             ShortCutKey ""
  446.         EndScript
  447.     EndObject
  448.     TextMenu "Einfügen..."
  449.         Definition
  450.             AttachTo MENU ,"Editormenü"
  451.             Text "Einfügen..."
  452.             Font "personal",8 ; FontName, PointSize
  453.             Style PLAIN ,2,3
  454.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  455.             ShortCutKey "E"
  456.         EndScript
  457.         Occurred
  458.             Let c=theColumnNumber
  459.             Do "undos"
  460.             Do "marke2"
  461.             SetObjectState "AMarke2",false
  462.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  463.             Let Einfügen=AskForFilename(InsertMode,"Text beim Cursor einfügen...","155","39","340","180")
  464.             Let Newfile = Einfügen
  465.             If newfile<>nothing
  466.                 If Not Match(FileType(newfile),"Unknown","FTXT")
  467.                     SetWindowTitle "Kann File nicht Laden """||newfile||""""
  468.                 Else
  469.                     SetWindowTitle "Lade einzufügender Text....."
  470.                     InsertDocument newfile,"TheDoc"
  471.                     IfError
  472.                         Do "Fehlerroutine"
  473.                     Else
  474.                         Let FileToGet=newfile
  475.                         SetWindowTitle "FileName :"""||FileToGet||""""
  476.                     EndIf
  477.                 EndIf
  478.             EndIf
  479.             
  480.         EndScript
  481.     EndObject
  482.     TextMenu "TrennstrichX9"
  483.         Definition
  484.             AttachTo MENU ,"Editormenü"
  485.             Font "personal",8 ; FontName, PointSize
  486.             Style PLAIN ,2,3
  487.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  488.             Text "-------------------------------"
  489.             MenuFlags NONE 
  490.             Highlight NONE 
  491.             ShortCutKey ""
  492.         EndScript
  493.     EndObject
  494.     TextMenu "Suchen..."
  495.         Definition
  496.             AttachTo MENU ,"Editormenü"
  497.             Font "personal",8 ; FontName, PointSize
  498.             Style PLAIN ,2,3
  499.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  500.             Text "Suchen..."
  501.             MenuFlags NONE 
  502.             Highlight COMPLEMENT 
  503.             ShortCutKey "S"
  504.         EndScript
  505.         Occurred
  506.             Do "S"
  507.         EndScript
  508.     EndObject
  509.     TextMenu "Suchen fortsetzen..."
  510.         Definition
  511.             AttachTo MENU ,"Editormenü"
  512.             Font "personal",8 ; FontName, PointSize
  513.             Style PLAIN ,2,3
  514.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  515.             Text "Suchen fortsetzen..."
  516.             MenuFlags NONE 
  517.             Highlight COMPLEMENT 
  518.             ShortCutKey "W"
  519.         EndScript
  520.         Occurred
  521.             Do "SF"
  522.         EndScript
  523.     EndObject
  524.     TextMenu "TrennstrichX7"
  525.         Definition
  526.             AttachTo MENU ,"Editormenü"
  527.             Font "personal",8 ; FontName, PointSize
  528.             Style PLAIN ,2,3
  529.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  530.             Text "-------------------------------"
  531.             MenuFlags NONE 
  532.             Highlight NONE 
  533.             ShortCutKey ""
  534.         EndScript
  535.     EndObject
  536.     TextMenu "Speichern, ASCII"
  537.         Definition
  538.             AttachTo MENU ,"Editormenü"
  539.             Text "Speichern, ASCII"
  540.             Font "personal",8 ; FontName, PointSize
  541.             Style PLAIN ,2,3
  542.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  543.             ShortCutKey "A"
  544.         EndScript
  545.         Occurred
  546.             Do "marke2"
  547.             SetObjectState "AMarke2",false
  548.             SetFileRequestMode SAVEFILEMODE ,NONE 
  549.             Let SichernAscii=AskForFileName(Antwort,"Text in ASCII sichern...","155","39","340","180")
  550.             Let Antwort = SichernAscii
  551.             If Antwort <> ""
  552.                 Let Dateispeichername = Antwort
  553.                 SetWindowTitle "Speichere nun im ASCII Format!"
  554.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  555.                 IfError
  556.                     Do "Fehlerroutine"
  557.                 EndIf
  558.             EndIf
  559.             SetWindowTitle "Textloader ©  by P.Gisin"
  560.             
  561.         EndScript
  562.     EndObject
  563.     TextMenu "Speichern, FTXT"
  564.         Definition
  565.             AttachTo MENU ,"Editormenü"
  566.             Text "Speichern, FTXT"
  567.             Font "personal",8 ; FontName, PointSize
  568.             Style PLAIN ,2,3
  569.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  570.             ShortCutKey "F"
  571.         EndScript
  572.         Occurred
  573.             Do "marke2"
  574.             SetObjectState "AMarke2",false
  575.             SetFileRequestMode SAVEFILEMODE ,NONE 
  576.             Let SpeichernFTXT=askForFilename(FTXTSave,"Text im FTXT Format sichern...","155","39","340","180")
  577.             Let FTXTSave = SpeichernFTXT
  578.             If FTXTSave <> ""
  579.                 Let Dateispeichername = FTXTSave
  580.                 SetWindowTitle "Speichere nun im FTXT Format!"
  581.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  582.                 IfError
  583.                     Do "Fehlerroutine"
  584.                 EndIf
  585.             EndIf
  586.             SetWindowTitle "Textloader © by P.Gisin"
  587.             
  588.         EndScript
  589.     EndObject
  590.     TextMenu "Speichern, rtf"
  591.         Definition
  592.             AttachTo MENU ,"Editormenü"
  593.             Text "Speichern, RTF"
  594.             Font "personal",8 ; FontName, PointSize
  595.             Style PLAIN ,2,3
  596.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  597.         EndScript
  598.         Occurred
  599.             Do "wmarke"
  600.             SetObjectState "AMarke2",false
  601.             SetFileRequestMode SAVEFILEMODE ,NONE 
  602.             Let SpeichernFTXT=askForFilename(FTXTSave||".rtf","Text im RTF Format sichern...","155","39","340","180")
  603.             Let FTXTSave = SpeichernFTXT
  604.             If FTXTSave <> ""
  605.                 Let Dateispeichername = FTXTSave
  606.                 SetWindowTitle "Speichere nun im RTF Format!"
  607.                 SaveDocument "RTF",Dateispeichername
  608.                 IfError
  609.                     Do "Fehlerroutine"
  610.                 EndIf
  611.             EndIf
  612.             SetWindowTitle "Textloader © by P.Gisin"
  613.             
  614.             
  615.         EndScript
  616.     EndObject
  617.     TextMenu "Speichern, WW7"
  618.         Definition
  619.             AttachTo MENU ,"Editormenü"
  620.             Text "Speichern, WW7"
  621.             Font "personal",8 ; FontName, PointSize
  622.             Style PLAIN ,2,3
  623.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  624.             MenuFlags DISABLE 
  625.         EndScript
  626.         Occurred
  627.             Do "wmarke-1"
  628.             SetObjectState "AMarke2",false
  629.             SetFileRequestMode SAVEFILEMODE ,NONE 
  630.             Let SpeichernFTXT=askForFilename(FTXTSave,"Text im FTXT Format sichern...","155","39","340","180")
  631.             Let FTXTSave = SpeichernFTXT
  632.             If FTXTSave <> ""
  633.                 Let Dateispeichername = FTXTSave
  634.                 SetWindowTitle "Speichere nun im FTXT Format!"
  635.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  636.                 IfError
  637.                     Do "Fehlerroutine"
  638.                 EndIf
  639.             EndIf
  640.             SetWindowTitle "Textloader © by P.Gisin"
  641.             
  642.         EndScript
  643.     EndObject
  644.     TextMenu "Speichern, Backup           »"
  645.         Definition
  646.             AttachTo MENU ,"Editormenü"
  647.             Font "personal",8 ; FontName, PointSize
  648.             Style PLAIN ,2,3
  649.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  650.             Text "Speichern, Backup           »"
  651.             MenuFlags NONE 
  652.             Highlight COMPLEMENT 
  653.             ShortCutKey ""
  654.         EndScript
  655.     EndObject
  656.     TextMenu "Sicherheitskopie anlegen (1)"
  657.         Definition
  658.             AttachTo OBJECT ,"Speichern, Backup           »"
  659.             Text "Sicherheitskopie anlegen (1)"
  660.             Font "personal",8 ; FontName, PointSize
  661.             Style PLAIN ,2,3
  662.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  663.         EndScript
  664.         Occurred
  665.             Do "marke2"
  666.             SetObjectState "AMarke2",false
  667.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (1)"
  668.             SaveDocument "TheDoc","ram:1BackupTextloader",ASCII 
  669.             IfError
  670.                 Do "Fehlerroutine"
  671.             EndIf
  672.             Delay 0,3,1/50
  673.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  674.             
  675.         EndScript
  676.     EndObject
  677.     TextMenu "Speichern"
  678.         Definition
  679.             AttachTo MENU ,"Editormenü"
  680.             Text "Speichern"
  681.             Font "personal",8 ; FontName, PointSize
  682.             Style PLAIN ,2,3
  683.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  684.             ShortCutKey "R"
  685.         EndScript
  686.         Occurred
  687.             Do "marke2"
  688.             Let Abfrage = AskForResponse("Dieser Text wird dort gespeichert,"||Char(10)||"wo er geladen wurde. Ist das,"||Char(10)||"so in Ordnung?","Textloader Informiert...","Aber natürlich|Hab mich verdrückt")
  689.             If Abfrage =1
  690.                 SaveAllChangedBuffers
  691.                 If error
  692.                     Do "FehlerRoutine"
  693.                     If Abfrage =0
  694.                     EndIf
  695.                 EndIf
  696.             EndIf
  697.             
  698.         EndScript
  699.     EndObject
  700.     TextMenu "TrennstrichX2"
  701.         Definition
  702.             AttachTo MENU ,"Editormenü"
  703.             Font "personal",8 ; FontName, PointSize
  704.             Style PLAIN ,2,3
  705.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  706.             Text "-------------------------------"
  707.             MenuFlags NONE 
  708.             Highlight NONE 
  709.             ShortCutKey ""
  710.         EndScript
  711.     EndObject
  712.     TextMenu "Löschen, TEXT"
  713.         Definition
  714.             AttachTo MENU ,"Editormenü"
  715.             Text "Löschen, TEXT"
  716.             Font "personal",8 ; FontName, PointSize
  717.             Style PLAIN ,2,3
  718.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  719.             ShortCutKey "T"
  720.         EndScript
  721.         Occurred
  722.             Let c=Theline
  723.             Do "undos"
  724.             OpenRequester "SimpleReq","JaNein","Löschen","Textloader Meldung...","Möchten Sie wirklich","den ganzen Text","für immer löschen?","???"
  725.             
  726.         EndScript
  727.     EndObject
  728.     TextMenu "Löschen, ZEILE"
  729.         Definition
  730.             AttachTo MENU ,"Editormenü"
  731.             Text "Löschen, ZEILE"
  732.             Font "personal",8 ; FontName, PointSize
  733.             Style PLAIN ,2,3
  734.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  735.             ShortCutKey "Z"
  736.         EndScript
  737.         Occurred
  738.             Let c=Theline
  739.             Do "undos"
  740.             Clear LINE 
  741.             
  742.         EndScript
  743.     EndObject
  744.     TextMenu "TrennstrichX3"
  745.         Definition
  746.             AttachTo MENU ,"Editormenü"
  747.             Font "personal",8 ; FontName, PointSize
  748.             Style PLAIN ,2,3
  749.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  750.             Text "-------------------------------"
  751.             MenuFlags NONE 
  752.             Highlight NONE 
  753.             ShortCutKey ""
  754.         EndScript
  755.     EndObject
  756.     TextMenu "Cursor, Textanfang...   "
  757.         Definition
  758.             AttachTo MENU ,"Editormenü"
  759.             Font "personal",8 ; FontName, PointSize
  760.             Style PLAIN ,2,3
  761.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  762.             Text "Cursor, Textanfang...   "
  763.             MenuFlags NONE 
  764.             Highlight COMPLEMENT 
  765.             ShortCutKey ":"
  766.         EndScript
  767.         Occurred
  768.             WorkWithDocument "TheDoc"
  769.             MoveCursorTo STARTOF DOCUMENT 
  770.         EndScript
  771.     EndObject
  772.     TextMenu "Cursor, Textende..."
  773.         Definition
  774.             AttachTo MENU ,"Editormenü"
  775.             Font "personal",8 ; FontName, PointSize
  776.             Style PLAIN ,2,3
  777.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  778.             Text "Cursor, Textende..."
  779.             MenuFlags NONE 
  780.             Highlight COMPLEMENT 
  781.             ShortCutKey ";"
  782.         EndScript
  783.         Occurred
  784.             WorkWithDocument "TheDoc"
  785.             MoveCursorTo ENDOF DOCUMENT 
  786.         EndScript
  787.     EndObject
  788.     TextMenu "Cursor, EineZeile"
  789.         Definition
  790.             AttachTo MENU ,"Editormenü"
  791.             Font "personal",8 ; FontName, PointSize
  792.             Style PLAIN ,2,3
  793.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  794.             Text "Neue Zeile"
  795.             MenuFlags NONE 
  796.             Highlight COMPLEMENT 
  797.             ShortCutKey "D"
  798.         EndScript
  799.         Occurred
  800.             NewLine
  801.         EndScript
  802.     EndObject
  803.     TextMenu "TrennstrichX4"
  804.         Definition
  805.             AttachTo MENU ,"Editormenü"
  806.             Font "personal",8 ; FontName, PointSize
  807.             Style PLAIN ,2,3
  808.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  809.             Text "-------------------------------"
  810.             MenuFlags NONE 
  811.             Highlight NONE 
  812.             ShortCutKey ""
  813.         EndScript
  814.     EndObject
  815.     TextMenu "Drucken..."
  816.         Definition
  817.             AttachTo MENU ,"Editormenü"
  818.             Font "personal",8 ; FontName, PointSize
  819.             Style PLAIN ,2,3
  820.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  821.             Text "Drucken..."
  822.             MenuFlags NONE 
  823.             Highlight COMPLEMENT 
  824.             ShortCutKey "P"
  825.         EndScript
  826.         Occurred
  827.             OpenRequester "SimpleReq","JaNein","Drucken","Textloader Meldung...","Wollen Sie wirklich","dieses Dokument","jetzt Ausdrucken lassen?"," "
  828.         EndScript
  829.     EndObject
  830.     TextMenu "TrennstrichX5"
  831.         Definition
  832.             AttachTo MENU ,"Editormenü"
  833.             Font "personal",8 ; FontName, PointSize
  834.             Style PLAIN ,2,3
  835.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  836.             Text "-------------------------------"
  837.             MenuFlags NONE 
  838.             Highlight NONE 
  839.             ShortCutKey ""
  840.         EndScript
  841.     EndObject
  842.     TextMenu "Beenden..."
  843.         Definition
  844.             AttachTo MENU ,"Editormenü"
  845.             Font "personal",8 ; FontName, PointSize
  846.             Style PLAIN ,2,3
  847.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  848.             Text "Beenden..."
  849.             MenuFlags NONE 
  850.             Highlight COMPLEMENT 
  851.             ShortCutKey "Q"
  852.         EndScript
  853.         Occurred
  854.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Frage...","Möchten Sie Ihr Dokument, vor","dem beenden noch sichern ???","",""
  855.         EndScript
  856.     EndObject
  857.     TextMenu "Mark"
  858.         Definition
  859.             AttachTo MENU ," Text"
  860.             Text "Markieren"
  861.             Font "topaz",8 ; FontName, PointSize
  862.             ShortCutKey "m"
  863.         EndScript
  864.         Occurred
  865.             SetObjectState "AM2",true
  866.             Do "empd2"
  867.             Do "curplace"
  868.             Do "markb"
  869.             
  870.         EndScript
  871.     EndObject
  872.     TextMenu "Mark2"
  873.         Definition
  874.             AttachTo MENU ," Text"
  875.             Text "Alles Markieren"
  876.             Font "topaz",8 ; FontName, PointSize
  877.         EndScript
  878.         Occurred
  879.             SetObjectState "AM",true
  880.             Let ln=thelinenumber
  881.             Do "empd2"
  882.             Do "curplace"
  883.             Do "markb2"
  884.             PositionOnLine ln
  885.             
  886.         EndScript
  887.     EndObject
  888.     TextMenu "HTML Information"
  889.         Definition
  890.             AttachTo MENU ," WWWEdit "
  891.             Text "HTML (Infos)"
  892.             Font "personal",8 ; FontName, PointSize
  893.             Style PLAIN ,2,3
  894.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  895.         EndScript
  896.         Occurred
  897.             LoadDocument ("SchabloneInfo"),"TheDoc"
  898.             IfError
  899.                 Let err = askforresponse("Abbruch...", "Textloader Information", " OK ")
  900.             EndIf
  901.             
  902.         EndScript
  903.     EndObject
  904.     TextMenu "Schablone öffnen..."
  905.         Definition
  906.             AttachTo MENU ," WWWEdit "
  907.             Text "HTML (Text)"
  908.             Font "personal",8 ; FontName, PointSize
  909.             Style PLAIN ,2,3
  910.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  911.         EndScript
  912.         Occurred
  913.             LoadDocument ("Schablone1"),"TheDoc"
  914.             IfError
  915.                 Let err = askforresponse("Abbruch...", "Textloader Information", " OK ")
  916.             EndIf
  917.         EndScript
  918.     EndObject
  919.     TextMenu "Systemuhr..."
  920.         Definition
  921.             AttachTo MENU ," Workbench "
  922.             Font "personal",8 ; FontName, PointSize
  923.             Style PLAIN ,2,3
  924.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  925.             Text "Systemuhr..."
  926.             MenuFlags NONE 
  927.             Highlight COMPLEMENT 
  928.             ShortCutKey "U"
  929.         EndScript
  930.         Occurred
  931.             Dos "Run >Nil: <Nil: Sys:Utilities/Clock" ; Run the application
  932.         EndScript
  933.     EndObject
  934.     TextMenu "Taschenrechner..."
  935.         Definition
  936.             AttachTo MENU ," Workbench "
  937.             Font "personal",8 ; FontName, PointSize
  938.             Style PLAIN ,2,3
  939.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  940.             Text "Taschenrechner..."
  941.             MenuFlags NONE 
  942.             Highlight COMPLEMENT 
  943.             ShortCutKey "C"
  944.         EndScript
  945.         Occurred
  946.             Dos "Run >Nil: <Nil: Sys:Tools/Calculator" ; Run the application
  947.         EndScript
  948.     EndObject
  949.     TextMenu "Tastaturbelegung..."
  950.         Definition
  951.             AttachTo MENU ," Workbench "
  952.             Font "personal",8 ; FontName, PointSize
  953.             Style PLAIN ,2,3
  954.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  955.             Text "Tastaturbelegung..."
  956.             MenuFlags NONE 
  957.             Highlight COMPLEMENT 
  958.             ShortCutKey "K"
  959.         EndScript
  960.         Occurred
  961.             Dos "Run >Nil: <Nil: Sys:Tools/KeyShow" ; Run the application
  962.         EndScript
  963.     EndObject
  964.     TextMenu "Farbeneinsteller..."
  965.         Definition
  966.             AttachTo MENU ," Workbench "
  967.             Font "personal",8 ; FontName, PointSize
  968.             Style PLAIN ,2,3
  969.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  970.             Text "Farbeneinsteller..."
  971.             MenuFlags NONE 
  972.             Highlight COMPLEMENT 
  973.             ShortCutKey "+"
  974.         EndScript
  975.         Occurred
  976.             If exists("sys:Tools/Colors")
  977.                 Dos "Run >Nil: <Nil: Sys:Tools/Colors" ; Run the application
  978.             ElseIf exists("sys:Prefs/Palette")
  979.                 Dos "Run >Nil: <Nil: Sys:Prefs/Palette"
  980.             Else
  981.                 Let Error =askforResponse("Programm existiert nicht!","Textloader Fehler...","")
  982.             EndIf
  983.         EndScript
  984.     EndObject
  985.     TextMenu "HD-Toolbox..."
  986.         Definition
  987.             AttachTo MENU ," Workbench "
  988.             Font "personal",8 ; FontName, PointSize
  989.             Style PLAIN ,2,3
  990.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  991.             Text "HD-Toolbox..."
  992.             MenuFlags NONE 
  993.             Highlight COMPLEMENT 
  994.             ShortCutKey "%"
  995.         EndScript
  996.         Occurred
  997.             Dos "Run >Nil: <Nil: Sys:Tools/HDToolbox" ; Run the application
  998.         EndScript
  999.     EndObject
  1000.     TextMenu "Cli-Fenster..."
  1001.         Definition
  1002.             AttachTo MENU ," Workbench "
  1003.             Font "personal",8 ; FontName, PointSize
  1004.             Style PLAIN ,2,3
  1005.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1006.             Text "Cli-Fenster..."
  1007.             MenuFlags NONE 
  1008.             Highlight COMPLEMENT 
  1009.             ShortCutKey "$"
  1010.         EndScript
  1011.         Occurred
  1012.             Dos "Run >Nil: <Nil: Sys:System/Cli" ; Run the application
  1013.         EndScript
  1014.     EndObject
  1015.     TextMenu "Trennstrich6"
  1016.         Definition
  1017.             AttachTo MENU ," Workbench "
  1018.             Font "personal",8 ; FontName, PointSize
  1019.             Style PLAIN ,2,3
  1020.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1021.             Text "-------------------------------"
  1022.             MenuFlags NONE 
  1023.             Highlight NONE 
  1024.             ShortCutKey ""
  1025.         EndScript
  1026.     EndObject
  1027.     TextMenu "MenuItem_4"
  1028.         Definition
  1029.             AttachTo MENU ," Workbench "
  1030.             Font "personal",8 ; FontName, PointSize
  1031.             Style PLAIN ,2,3
  1032.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1033.             Text "Multiview..."
  1034.             MenuFlags NONE 
  1035.             Highlight COMPLEMENT 
  1036.             ShortCutKey "0"
  1037.         EndScript
  1038.         Occurred
  1039.             Dos "Run >Nil: <Nil: Sys:Utilities/Multiview"
  1040.             If error
  1041.                 Do "Fehlerroutine"
  1042.             EndIf
  1043.         EndScript
  1044.     EndObject
  1045.     TextMenu "DruckerPrefs..."
  1046.         Definition
  1047.             AttachTo MENU ," Workbench "
  1048.             Font "personal",8 ; FontName, PointSize
  1049.             Style PLAIN ,2,3
  1050.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1051.             Text "DruckerPrefs..."
  1052.             MenuFlags NONE 
  1053.             Highlight COMPLEMENT 
  1054.             ShortCutKey "1"
  1055.         EndScript
  1056.         Occurred
  1057.             Dos "Run >Nil: <Nil: Sys:prefs/Printer" ; Run the application
  1058.         EndScript
  1059.     EndObject
  1060.     TextMenu "Zeiteinsteller..."
  1061.         Definition
  1062.             AttachTo MENU ," Workbench "
  1063.             Font "personal",8 ; FontName, PointSize
  1064.             Style PLAIN ,2,3
  1065.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1066.             Text "Zeiteinsteller..."
  1067.             MenuFlags NONE 
  1068.             Highlight COMPLEMENT 
  1069.             ShortCutKey "2"
  1070.         EndScript
  1071.         Occurred
  1072.             Dos "Run >Nil: <Nil: Sys:prefs/Time" ; Run the application
  1073.         EndScript
  1074.     EndObject
  1075.     TextMenu "Sprache(Locale)..."
  1076.         Definition
  1077.             AttachTo MENU ," Workbench "
  1078.             Font "personal",8 ; FontName, PointSize
  1079.             Style PLAIN ,2,3
  1080.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1081.             Text "Sprache(Locale)..."
  1082.             MenuFlags NONE 
  1083.             Highlight COMPLEMENT 
  1084.             ShortCutKey "3"
  1085.         EndScript
  1086.         Occurred
  1087.             Dos "Run >Nil: <Nil: Sys:prefs/Locale" ; Run the application
  1088.         EndScript
  1089.     EndObject
  1090.     TextMenu "Screenmodeprefs..."
  1091.         Definition
  1092.             AttachTo MENU ," Workbench "
  1093.             Font "personal",8 ; FontName, PointSize
  1094.             Style PLAIN ,2,3
  1095.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1096.             Text "Screenmodeprefs..."
  1097.             MenuFlags NONE 
  1098.             Highlight COMPLEMENT 
  1099.             ShortCutKey "4"
  1100.         EndScript
  1101.         Occurred
  1102.             Dos "Run >Nil: <Nil: Sys:Prefs/ScreenMode" ; Run the application
  1103.         EndScript
  1104.     EndObject
  1105.     TextMenu "PrinterGfx..."
  1106.         Definition
  1107.             AttachTo MENU ," Workbench "
  1108.             Font "personal",8 ; FontName, PointSize
  1109.             Style PLAIN ,2,3
  1110.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1111.             Text "PrinterGfx..."
  1112.             MenuFlags NONE 
  1113.             Highlight COMPLEMENT 
  1114.             ShortCutKey "5"
  1115.         EndScript
  1116.         Occurred
  1117.             Dos "Run >Nil: <Nil: Sys:prefs/PrinterGfx" ; Run the application
  1118.         EndScript
  1119.     EndObject
  1120.     TextMenu "Fonteinsteller..."
  1121.         Definition
  1122.             AttachTo MENU ," Workbench "
  1123.             Font "personal",8 ; FontName, PointSize
  1124.             Style PLAIN ,2,3
  1125.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1126.             Text "Fonteinsteller..."
  1127.             MenuFlags NONE 
  1128.             Highlight COMPLEMENT 
  1129.             ShortCutKey "6"
  1130.         EndScript
  1131.         Occurred
  1132.             Dos "Run >Nil: <Nil: Sys:prefs/Font" ; Run the application
  1133.         EndScript
  1134.     EndObject
  1135.     TextMenu "Palette..."
  1136.         Definition
  1137.             AttachTo MENU ," PrefsTools "
  1138.             Font "personal",8 ; FontName, PointSize
  1139.             Style PLAIN ,2,3
  1140.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1141.             Text "Palette..."
  1142.             MenuFlags NONE 
  1143.             Highlight COMPLEMENT 
  1144.             ShortCutKey "X"
  1145.         EndScript
  1146.         Occurred
  1147.             OpenRequester "Palette","Palette"
  1148.         EndScript
  1149.     EndObject
  1150.     TextMenu "Speicher..."
  1151.         Definition
  1152.             AttachTo MENU ," PrefsTools "
  1153.             Font "personal",8 ; FontName, PointSize
  1154.             Style PLAIN ,2,3
  1155.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1156.             Text "Speicher..."
  1157.             MenuFlags NONE 
  1158.             Highlight COMPLEMENT 
  1159.             ShortCutKey "M"
  1160.         EndScript
  1161.         Occurred
  1162.             OpenRequester "Avail","Avail"
  1163.         EndScript
  1164.     EndObject
  1165.     TextMenu "Sicherheitskopie anlegen (2)"
  1166.         Definition
  1167.             AttachTo OBJECT ,"Speichern, Backup           »"
  1168.             Text "Sicherheitskopie anlegen (2)"
  1169.             Font "personal",8 ; FontName, PointSize
  1170.             Style PLAIN ,2,3
  1171.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  1172.         EndScript
  1173.         Occurred
  1174.             Do "marke2"
  1175.             SetObjectState "AMarke2",false
  1176.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (2)"
  1177.             SaveDocument "TheDoc","ram:2BackupTextloader",ASCII 
  1178.             IfError
  1179.                 Do "Fehlerroutine"
  1180.             EndIf
  1181.             Delay 0,3,1/50
  1182.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1183.             
  1184.         EndScript
  1185.     EndObject
  1186.     TextMenu "Sicherheitskopie anlegen (3)"
  1187.         Definition
  1188.             AttachTo OBJECT ,"Speichern, Backup           »"
  1189.             Text "Sicherheitskopie anlegen (3)"
  1190.             Font "personal",8 ; FontName, PointSize
  1191.             Style PLAIN ,2,3
  1192.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  1193.         EndScript
  1194.         Occurred
  1195.             Do "marke2"
  1196.             SetObjectState "AMarke2",false
  1197.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (3)"
  1198.             SaveDocument "TheDoc","ram:3BackupTextloader",ASCII 
  1199.             IfError
  1200.                 Do "Fehlerroutine"
  1201.             EndIf
  1202.             Delay 0,3,1/50
  1203.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1204.             
  1205.         EndScript
  1206.     EndObject
  1207.     TextMenu "Sicherheitskopie anlegen (4)"
  1208.         Definition
  1209.             AttachTo OBJECT ,"Speichern, Backup           »"
  1210.             Text "Sicherheitskopie anlegen (4)"
  1211.             Font "personal",8 ; FontName, PointSize
  1212.             Style PLAIN ,2,3
  1213.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  1214.         EndScript
  1215.         Occurred
  1216.             Do "marke2"
  1217.             SetObjectState "AMarke2",false
  1218.             SetWindowTitle "Speichere den Text nun in die RAM, unter Ablage (4)"
  1219.             SaveDocument "TheDoc","ram:4BackupTextloader",ASCII 
  1220.             IfError
  1221.                 Do "Fehlerroutine"
  1222.             EndIf
  1223.             Delay 0,3,1/50
  1224.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  1225.             
  1226.         EndScript
  1227.     EndObject
  1228.     TextMenu "-------------------------"
  1229.         Definition
  1230.             AttachTo OBJECT ,"Speichern, Backup           »"
  1231.             Font "topaz",8 ; FontName, PointSize
  1232.             Style PLAIN ,2,3
  1233.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1234.             Text "-------------------------"
  1235.             MenuFlags NONE 
  1236.             Highlight NONE 
  1237.             ShortCutKey ""
  1238.         EndScript
  1239.     EndObject
  1240.     TextMenu "Sicherheitskopie einfügen (1)"
  1241.         Definition
  1242.             AttachTo OBJECT ,"Speichern, Backup           »"
  1243.             Font "personal",8 ; FontName, PointSize
  1244.             Style PLAIN ,2,3
  1245.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1246.             Text "Sicherheitskopie einfügen (1)"
  1247.             MenuFlags NONE 
  1248.             Highlight COMPLEMENT 
  1249.             ShortCutKey ""
  1250.         EndScript
  1251.         Occurred
  1252.             LoadDocument "ram:1BackupTextloader","TheDoc"
  1253.         EndScript
  1254.     EndObject
  1255.     TextMenu "Sicherheitskopie einfügen (2)"
  1256.         Definition
  1257.             AttachTo OBJECT ,"Speichern, Backup           »"
  1258.             Font "personal",8 ; FontName, PointSize
  1259.             Style PLAIN ,2,3
  1260.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1261.             Text "Sicherheitskopie einfügen (2)"
  1262.             MenuFlags NONE 
  1263.             Highlight COMPLEMENT 
  1264.             ShortCutKey ""
  1265.         EndScript
  1266.         Occurred
  1267.             LoadDocument "ram:2BackupTextloader","TheDoc"
  1268.         EndScript
  1269.     EndObject
  1270.     TextMenu "Sicherheitskopie einfügen (3)"
  1271.         Definition
  1272.             AttachTo OBJECT ,"Speichern, Backup           »"
  1273.             Font "personal",8 ; FontName, PointSize
  1274.             Style PLAIN ,2,3
  1275.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1276.             Text "Sicherheitskopie einfügen (3)"
  1277.             MenuFlags NONE 
  1278.             Highlight COMPLEMENT 
  1279.             ShortCutKey ""
  1280.         EndScript
  1281.         Occurred
  1282.             LoadDocument "ram:3BackupTextloader","TheDoc"
  1283.         EndScript
  1284.     EndObject
  1285.     TextMenu "Sicherheitskopie einfügen (4)"
  1286.         Definition
  1287.             AttachTo OBJECT ,"Speichern, Backup           »"
  1288.             Font "personal",8 ; FontName, PointSize
  1289.             Style PLAIN ,2,3
  1290.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1291.             Text "Sicherheitskopie einfügen (4)"
  1292.             MenuFlags NONE 
  1293.             Highlight COMPLEMENT 
  1294.             ShortCutKey ""
  1295.         EndScript
  1296.         Occurred
  1297.             LoadDocument "ram:4BackupTextloader","TheDoc"
  1298.         EndScript
  1299.     EndObject
  1300.     TextMenu "OnlineHelp..."
  1301.         Definition
  1302.             AttachTo MENU ," Help "
  1303.             Font "personal",8 ; FontName, PointSize
  1304.             Style PLAIN ,2,3
  1305.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1306.             Text "OnlineHelp..."
  1307.             MenuFlags NONE 
  1308.             Highlight COMPLEMENT 
  1309.             ShortCutKey "O"
  1310.         EndScript
  1311.         Occurred
  1312.             If EXISTS ("sys:Utilities/Amigaguide")
  1313.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1314.             Else
  1315.                 If EXISTS ("sys:Utilities/Multiview")
  1316.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1317.                 Else
  1318.                     If EXISTS ("sys:c/Amigaguide")
  1319.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1320.                     Else
  1321.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1322.                     EndIf
  1323.                 EndIf
  1324.             EndIf
  1325.         EndScript
  1326.     EndObject
  1327.     TextMenu "MenuItem_1"
  1328.         Definition
  1329.             AttachTo MENU ," Workbench "
  1330.             Font "personal",8 ; FontName, PointSize
  1331.             Style PLAIN ,2,3
  1332.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1333.             Text "Pointer..."
  1334.             MenuFlags NONE 
  1335.             Highlight COMPLEMENT 
  1336.             ShortCutKey "7"
  1337.         EndScript
  1338.         Occurred
  1339.             Dos "Run >Nil: <Nil: Sys:Prefs/Pointer" ; Run the application
  1340.         EndScript
  1341.     EndObject
  1342.     TextMenu "MenuItem_2"
  1343.         Definition
  1344.             AttachTo MENU ," Workbench "
  1345.             Font "personal",8 ; FontName, PointSize
  1346.             Style PLAIN ,2,3
  1347.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1348.             Text "Sound..."
  1349.             MenuFlags NONE 
  1350.             Highlight COMPLEMENT 
  1351.             ShortCutKey "8"
  1352.         EndScript
  1353.         Occurred
  1354.             Dos "Run >Nil: <Nil: Sys:Prefs/Sound" ; Run the application
  1355.         EndScript
  1356.     EndObject
  1357.     TextMenu "MenuItem3"
  1358.         Definition
  1359.             AttachTo MENU ," Workbench "
  1360.             Font "personal",8 ; FontName, PointSize
  1361.             Style PLAIN ,2,3
  1362.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1363.             Text "PrinterPostscript..."
  1364.             MenuFlags NONE 
  1365.             Highlight COMPLEMENT 
  1366.             ShortCutKey "9"
  1367.         EndScript
  1368.         Occurred
  1369.             Dos "Run >Nil: <Nil: Sys:Prefs/PrinterPS" ; Run the application
  1370.         EndScript
  1371.     EndObject
  1372.     TextMenu "Trennstrich?"
  1373.         Definition
  1374.             AttachTo MENU ," Workbench "
  1375.             Font "personal",8 ; FontName, PointSize
  1376.             Style PLAIN ,2,3
  1377.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  1378.             Text "-------------------------------"
  1379.             MenuFlags NONE 
  1380.             Highlight NONE 
  1381.             ShortCutKey ""
  1382.         EndScript
  1383.     EndObject
  1384.     AKey "F8-nicht_benutzt"
  1385.         Definition
  1386.             QualifiersPressed NONE 
  1387.             KeyPressed F8 
  1388.         EndScript
  1389.         OnDown
  1390.             Do "AusserFunktion"
  1391.         EndScript
  1392.     EndObject
  1393.     AKey "F9-nicht-benutzt"
  1394.         Definition
  1395.             QualifiersPressed NONE 
  1396.             KeyPressed F9 
  1397.         EndScript
  1398.         OnDown
  1399.             Do "AusserFunktion"
  1400.         EndScript
  1401.     EndObject
  1402.     AKey "F10-nicht_benutzt"
  1403.         Definition
  1404.             QualifiersPressed NONE 
  1405.             KeyPressed F10 
  1406.         EndScript
  1407.         OnDown
  1408.             Do "AusserFunktion"
  1409.         EndScript
  1410.     EndObject
  1411.     TextMenu "NoFastMem"
  1412.         Definition
  1413.             AttachTo MENU ," Workbench "
  1414.             Font "personal",8 ; FontName, PointSize
  1415.             Style PLAIN ,2,3
  1416.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1417.             Text "NoFastMem"
  1418.             MenuFlags NONE 
  1419.             Highlight COMPLEMENT 
  1420.             ShortCutKey ""
  1421.         EndScript
  1422.         Occurred
  1423.             Dos "Run >Nil: <Nil: Sys:system/NoFastMem"
  1424.             If error
  1425.                 Do "Fehlerroutine"
  1426.             EndIf
  1427.         EndScript
  1428.     EndObject
  1429.     TextMenu "Rexxmast"
  1430.         Definition
  1431.             AttachTo MENU ," Workbench "
  1432.             Font "personal",8 ; FontName, PointSize
  1433.             Style PLAIN ,2,3
  1434.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  1435.             Text "Rexxmast"
  1436.             MenuFlags NONE 
  1437.             Highlight COMPLEMENT 
  1438.             ShortCutKey ""
  1439.         EndScript
  1440.         Occurred
  1441.             Dos "Run >Nil: <Nil: Sys:system/Rexxmast"
  1442.             If error
  1443.                 Do "Fehlerroutine"
  1444.             EndIf
  1445.         EndScript
  1446.     EndObject
  1447.     TextMenu "StatistikDoc"
  1448.         Definition
  1449.             AttachTo MENU ," Statistik "
  1450.             Text "Document..."
  1451.             Font "personal",8 ; FontName, PointSize
  1452.             ShortCutKey "."
  1453.         EndScript
  1454.         Occurred
  1455.             
  1456.             
  1457.             Let DokInfo = "Zeichen Total:   """||SizeOfDocument||""""||Char(10)||"Cursor Position: """||TheCharacter||""""||Char(10)||"Cursor auf Feld: """||TheColumnNumber||""""||Char(10)||"Zeilen Total:    """||LinesInDocument||""""
  1458.             Let InfoDok=AskForResponse(DokInfo, "Textloader Dok Infos...","Danke fuer die News!")
  1459.             
  1460.             
  1461.             
  1462.             
  1463.         EndScript
  1464.     EndObject
  1465.     TextMenu "MenuItem_3"
  1466.         Definition
  1467.             AttachTo MENU ," Statistik "
  1468.             Text "------------------------"
  1469.             Highlight NONE 
  1470.             Font "personal",8 ; FontName, PointSize
  1471.             Style PLAIN ,2,3
  1472.             TextColors 4,2,JAM1  ; PenA, PenB, DrawMode
  1473.         EndScript
  1474.     EndObject
  1475.     TextMenu "Memory"
  1476.         Definition
  1477.             AttachTo MENU ," Statistik "
  1478.             Text "Ram Speicher..."
  1479.             Font "personal",8 ; FontName, PointSize
  1480.             ShortCutKey ","
  1481.         EndScript
  1482.         Occurred
  1483.             Let TotalMemory = "Chip RAM:   """||AvailableChipMemory||""""||Char(10)||"Fast RAM:   """||AvailableFastMemory||""""||Char(10)||""||Char(10)||"Total:      """||AvailableMemory||""""
  1484.             Let Memory =AskForResponse(TotalMemory, "Textloader Statistik...","Aha so stehts!")
  1485.             
  1486.             
  1487.             
  1488.             
  1489.             
  1490.             ;Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"E-Mail: PGisin@nextron.ch"
  1491.             ;Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  1492.             
  1493.         EndScript
  1494.     EndObject
  1495.     TextMenu "Copy_of_MenuItem_3"
  1496.         Definition
  1497.             AttachTo MENU ," Statistik "
  1498.             Text "------------------------"
  1499.             Highlight NONE 
  1500.             Font "personal",8 ; FontName, PointSize
  1501.             Style PLAIN ,2,3
  1502.             TextColors 4,2,JAM1  ; PenA, PenB, DrawMode
  1503.         EndScript
  1504.     EndObject
  1505.     TextMenu "Copy_7_of_CursorPosition"
  1506.         Definition
  1507.             AttachTo MENU ," Statistik "
  1508.             Text "System Version..."
  1509.             Font "personal",8 ; FontName, PointSize
  1510.             Style PLAIN ,2,3
  1511.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  1512.             ShortCutKey "-"
  1513.         EndScript
  1514.         Occurred
  1515.             Let Intui =askForResponse("Sie benutzen Workbench-Realise:  """||IntuitionVersion||"""","Textloader WB Check...","")
  1516.             
  1517.             
  1518.         EndScript
  1519.     EndObject
  1520.     TextMenu "Farbenwahl"
  1521.         Definition
  1522.             AttachTo MENU ," PrefsTools "
  1523.             Font "personal",8 ; FontName, PointSize
  1524.             Style PLAIN ,2,3
  1525.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1526.             Text "Farben wahl..."
  1527.             MenuFlags NONE 
  1528.             Highlight COMPLEMENT 
  1529.             ShortCutKey ""
  1530.         EndScript
  1531.     EndObject
  1532.     TextMenu "Wb"
  1533.         Definition
  1534.             AttachTo OBJECT ,"Farbenwahl"
  1535.             Font "personal",8 ; FontName, PointSize
  1536.             Style PLAIN ,2,3
  1537.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1538.             Text "Wb"
  1539.             MenuFlags CHECKABLE CHECKIT 
  1540.             Highlight COMPLEMENT 
  1541.             ShortCutKey ""
  1542.         EndScript
  1543.         Occurred
  1544.             SetObjectState "Wb",true
  1545.             SetObjectState "WBold",false
  1546.             SetObjectState "Violetexotic",false
  1547.             SetObjectState "blacky",false
  1548.             SetObjectState "banana",false
  1549.             SetObjectState "PescaFruit",false
  1550.             SetObjectState "GreenApple",false
  1551.             SetObjectState "SpacyTint",false
  1552.             SetRGB 0,170,170,170
  1553.             SetRGB 1,0,0,17
  1554.             SetRGB 2,255,255,255
  1555.             SetRGB 3,102,136,187
  1556.         EndScript
  1557.     EndObject
  1558.     TextMenu "WBold"
  1559.         Definition
  1560.             AttachTo OBJECT ,"Farbenwahl"
  1561.             Font "personal",8 ; FontName, PointSize
  1562.             Style PLAIN ,2,3
  1563.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1564.             Text "WBold"
  1565.             MenuFlags CHECKABLE 
  1566.             Highlight COMPLEMENT 
  1567.             ShortCutKey ""
  1568.         EndScript
  1569.         Occurred
  1570.             SetObjectState "Wb",false
  1571.             SetObjectState "WBold",true
  1572.             SetObjectState "Violetexotic",false
  1573.             SetObjectState "blacky",false
  1574.             SetObjectState "banana",false
  1575.             SetObjectState "PescaFruit",false
  1576.             SetObjectState "GreenApple",false
  1577.             SetObjectState "SpacyTint",false
  1578.             SetRGB 0,0,85,170
  1579.             SetRGB 1,255,255,255
  1580.             SetRGB 2,0,0,34
  1581.             SetRGB 3,255,136,0
  1582.         EndScript
  1583.     EndObject
  1584.     TextMenu "Violetexotic"
  1585.         Definition
  1586.             AttachTo OBJECT ,"Farbenwahl"
  1587.             Font "personal",8 ; FontName, PointSize
  1588.             Style PLAIN ,2,3
  1589.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1590.             Text "Violett exotic"
  1591.             MenuFlags CHECKABLE 
  1592.             Highlight COMPLEMENT 
  1593.             ShortCutKey ""
  1594.         EndScript
  1595.         Occurred
  1596.             SetObjectState "Wb",false
  1597.             SetObjectState "WBold",false
  1598.             SetObjectState "Violetexotic",true
  1599.             SetObjectState "blacky",false
  1600.             SetObjectState "banana",false
  1601.             SetObjectState "PescaFruit",false
  1602.             SetObjectState "GreenApple",false
  1603.             SetObjectState "SpacyTint",false
  1604.             SetRGB 0,187,187,187
  1605.             SetRGB 1,0,0,0
  1606.             SetRGB 2,255,255,255
  1607.             SetRGB 3,204,0,153
  1608.         EndScript
  1609.     EndObject
  1610.     TextMenu "blacky"
  1611.         Definition
  1612.             AttachTo OBJECT ,"Farbenwahl"
  1613.             Font "personal",8 ; FontName, PointSize
  1614.             Style PLAIN ,2,3
  1615.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1616.             Text "blacky bounce"
  1617.             MenuFlags CHECKABLE 
  1618.             Highlight COMPLEMENT 
  1619.             ShortCutKey ""
  1620.         EndScript
  1621.         Occurred
  1622.             SetObjectState "Wb",false
  1623.             SetObjectState "WBold",false
  1624.             SetObjectState "Violetexotic",false
  1625.             SetObjectState "blacky",true
  1626.             SetObjectState "banana",false
  1627.             SetObjectState "PescaFruit",false
  1628.             SetObjectState "GreenApple",false
  1629.             SetObjectState "SpacyTint",false
  1630.             SetRGB 0,0,0,0
  1631.             SetRGB 1,255,255,255
  1632.             SetRGB 2,85,170,170
  1633.             SetRGB 3,204,51,85
  1634.         EndScript
  1635.     EndObject
  1636.     TextMenu "Banana"
  1637.         Definition
  1638.             AttachTo OBJECT ,"Farbenwahl"
  1639.             Font "personal",8 ; FontName, PointSize
  1640.             Style PLAIN ,2,3
  1641.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1642.             Text "Banana split"
  1643.             MenuFlags CHECKABLE 
  1644.             Highlight COMPLEMENT 
  1645.             ShortCutKey ""
  1646.         EndScript
  1647.         Occurred
  1648.             SetObjectState "Wb",false
  1649.             SetObjectState "WBold",false
  1650.             SetObjectState "Violetexotic",false
  1651.             SetObjectState "blacky",false
  1652.             SetObjectState "banana",true
  1653.             SetObjectState "PescaFruit",false
  1654.             SetObjectState "GreenApple",false
  1655.             SetObjectState "SpacyTint",false
  1656.             SetRGB 0,170,170,170
  1657.             SetRGB 1,0,0,0
  1658.             SetRGB 2,187,85,17
  1659.             SetRGB 3,221,221,0
  1660.         EndScript
  1661.     EndObject
  1662.     TextMenu "Pescafruit"
  1663.         Definition
  1664.             AttachTo OBJECT ,"Farbenwahl"
  1665.             Font "personal",8 ; FontName, PointSize
  1666.             Style PLAIN ,2,3
  1667.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1668.             Text "Pescafruit"
  1669.             MenuFlags CHECKABLE 
  1670.             Highlight COMPLEMENT 
  1671.             ShortCutKey ""
  1672.         EndScript
  1673.         Occurred
  1674.             SetObjectState "Wb",false
  1675.             SetObjectState "WBold",false
  1676.             SetObjectState "Violetexotic",false
  1677.             SetObjectState "blacky",false
  1678.             SetObjectState "banana",false
  1679.             SetObjectState "PescaFruit",true
  1680.             SetObjectState "GreenApple",false
  1681.             SetObjectState "SpacyTint",false
  1682.             SetRGB 0,170,170,170
  1683.             SetRGB 1,0,0,0
  1684.             SetRGB 2,255,17,68
  1685.             SetRGB 3,238,136,0
  1686.         EndScript
  1687.     EndObject
  1688.     TextMenu "GreenApple"
  1689.         Definition
  1690.             AttachTo OBJECT ,"Farbenwahl"
  1691.             Font "personal",8 ; FontName, PointSize
  1692.             Style PLAIN ,2,3
  1693.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1694.             Text "GreenApple"
  1695.             MenuFlags CHECKABLE 
  1696.             Highlight COMPLEMENT 
  1697.             ShortCutKey ""
  1698.         EndScript
  1699.         Occurred
  1700.             SetObjectState "Wb",false
  1701.             SetObjectState "WBold",false
  1702.             SetObjectState "Violetexotic",false
  1703.             SetObjectState "blacky",false
  1704.             SetObjectState "banana",false
  1705.             SetObjectState "PescaFruit",false
  1706.             SetObjectState "GreenApple",true
  1707.             SetObjectState "SpacyTint",false
  1708.             SetRGB 0,153,153,153
  1709.             SetRGB 1,0,0,0
  1710.             SetRGB 2,238,170,51
  1711.             SetRGB 3,0,136,0
  1712.         EndScript
  1713.     EndObject
  1714.     TextMenu "Spacytint"
  1715.         Definition
  1716.             AttachTo OBJECT ,"Farbenwahl"
  1717.             Font "personal",8 ; FontName, PointSize
  1718.             Style PLAIN ,2,3
  1719.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  1720.             Text "Spacytint"
  1721.             MenuFlags CHECKABLE 
  1722.             Highlight COMPLEMENT 
  1723.             ShortCutKey ""
  1724.         EndScript
  1725.         Occurred
  1726.             SetObjectState "Wb",false
  1727.             SetObjectState "WBold",false
  1728.             SetObjectState "Violetexotic",false
  1729.             SetObjectState "blacky",false
  1730.             SetObjectState "banana",false
  1731.             SetObjectState "PescaFruit",false
  1732.             SetObjectState "GreenApple",false
  1733.             SetObjectState "SpacyTint",true
  1734.             SetRGB 0,255,255,255
  1735.             SetRGB 1,238,0,187
  1736.             SetRGB 2,0,0,0
  1737.             SetRGB 3,17,204,102
  1738.         EndScript
  1739.     EndObject
  1740.     AKey "OnlineHelp"
  1741.         Definition
  1742.             QualifiersPressed NONE 
  1743.             KeyPressed HELP 
  1744.         EndScript
  1745.         OnDown
  1746.             If EXISTS ("sys:Utilities/Amigaguide")
  1747.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  1748.             Else
  1749.                 If EXISTS ("sys:Utilities/Multiview")
  1750.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  1751.                 Else
  1752.                     If EXISTS ("sys:c/Amigaguide")
  1753.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  1754.                     Else
  1755.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  1756.                     EndIf
  1757.                 EndIf
  1758.             EndIf
  1759.         EndScript
  1760.     EndObject
  1761.     AKey "Laden Text (KeyInput)"
  1762.         Definition
  1763.             QualifiersPressed NONE 
  1764.             KeyPressed F1 
  1765.         EndScript
  1766.         OnDown
  1767.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  1768.             Let Laden=AskForFilename(NeueDatei,"ASCII/FTXT Datei laden...","155","39","340","180")
  1769.             Let NeueDatei=Laden
  1770.             If NeueDatei<>NOTHING
  1771.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  1772.                     Do "Beep"
  1773.                     SetWindowTitle "Kann die Datei"|||NeueDatei|||"nicht laden"
  1774.                 Else
  1775.                     SetWindowTitle "Lade Dokument..."
  1776.                     LoadDocument NeueDatei,"TheDoc"
  1777.                     IfError
  1778.                     Else
  1779.                         SetWindowTitle "Dateiname"|||NeueDatei
  1780.                     EndIf
  1781.                 EndIf
  1782.             EndIf
  1783.             Let c=theColumnNumber
  1784.             Do "undos"
  1785.             
  1786.         EndScript
  1787.     EndObject
  1788.     AKey "Speichern (KeyInput)"
  1789.         Definition
  1790.             QualifiersPressed NONE 
  1791.             KeyPressed F2 
  1792.         EndScript
  1793.         OnDown
  1794.             Let Abfrage = AskForResponse("Dieser Text wird dort gespeichert,"||Char(10)||"wo er geladen wurde. Ist das,"||Char(10)||"so in Ordnung?","Textloader Informiert...","Aber natürlich|Hab mich verdrückt")
  1795.             If Abfrage =1
  1796.                 SaveAllChangedBuffers
  1797.                 If error
  1798.                     Do "FehlerRoutine"
  1799.                     If Abfrage =0
  1800.                     EndIf
  1801.                 EndIf
  1802.             EndIf
  1803.         EndScript
  1804.     EndObject
  1805.     AKey "Speichern als... (KeyInput)"
  1806.         Definition
  1807.             QualifiersPressed NONE 
  1808.             KeyPressed F3 
  1809.         EndScript
  1810.         OnDown
  1811.             SetFileRequestMode SAVEFILEMODE ,NONE 
  1812.             Let SichernAscii=AskForFileName(Antwort,"Text in ASCII sichern...","155","39","340","180")
  1813.             Let Antwort = SichernAscii
  1814.             If Antwort <> ""
  1815.                 Let Dateispeichername = Antwort
  1816.                 SetWindowTitle "Speichere nun im ASCII Format!"
  1817.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  1818.                 IfError
  1819.                     Do "Fehlerroutine"
  1820.                 EndIf
  1821.             EndIf
  1822.             SetWindowTitle "Textloader ©  by P.Gisin"
  1823.         EndScript
  1824.     EndObject
  1825.     AKey "Drucke Document (KeyInput)"
  1826.         Definition
  1827.             QualifiersPressed NONE 
  1828.             KeyPressed F4 
  1829.         EndScript
  1830.         OnDown
  1831.             OpenRequester "SimpleReq","JaNein","Drucken","Textloader Meldung...","Wollen Sie wirklich","dieses Dokument","jetzt Ausdrucken lassen?"," "
  1832.         EndScript
  1833.     EndObject
  1834.     AKey "Löschen Text (KeyInput)"
  1835.         Definition
  1836.             QualifiersPressed NONE 
  1837.             KeyPressed F5 
  1838.         EndScript
  1839.         OnDown
  1840.             Let c=theColumnNumber
  1841.             Do "undos"
  1842.             OpenRequester "SimpleReq","JaNein","Löschen","Textloader Meldung...","Möchten Sie wirklich","den ganzen Text","für immer löschen?","???"
  1843.             
  1844.         EndScript
  1845.     EndObject
  1846.     AKey "Suchen nach (KeyInput)"
  1847.         Definition
  1848.             QualifiersPressed NONE 
  1849.             KeyPressed F6 
  1850.         EndScript
  1851.         OnDown
  1852.             Do "S"
  1853.         EndScript
  1854.     EndObject
  1855.     AKey "Suchen fortsetzen (KeyInput)"
  1856.         Definition
  1857.             QualifiersPressed NONE 
  1858.             KeyPressed F7 
  1859.         EndScript
  1860.         OnDown
  1861.             Do "SF"
  1862.         EndScript
  1863.     EndObject
  1864.     IntervalTimer "TitelUhr"
  1865.         Definition
  1866.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  1867.         EndScript
  1868.         Occurred
  1869.             If windowWidth > 272
  1870.                 Do "TitelUhr"
  1871.             EndIf
  1872.             
  1873.         EndScript
  1874.     EndObject
  1875.     Memo "D2"
  1876.         Definition
  1877.             MemoDocument "D2" ; where the text comes from
  1878.             ScrollBars RIGHT 
  1879.             Origin 2000,170
  1880.             Size 50,40
  1881.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  1882.         EndScript
  1883.     EndObject
  1884.     IntegerField "Home"
  1885.         Definition
  1886.             Limits 0,999999999
  1887.             InitialInteger 0
  1888.             Origin 2000,0
  1889.             Size 77,20
  1890.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  1891.             Justification CENTER 
  1892.             MaxFieldLength 256
  1893.         EndScript
  1894.     EndObject
  1895.     AKey "KeyInput_1"
  1896.         Definition
  1897.             QualifiersPressed NONE 
  1898.             KeyPressed DOWN 
  1899.         EndScript
  1900.         OnDown
  1901.             Let c=theColumnNumber
  1902.             Do "undos"
  1903.             Do "eo"
  1904.             Do "cdown"
  1905.             
  1906.         EndScript
  1907.     EndObject
  1908.     AKey "KeyInput_2"
  1909.         Definition
  1910.             QualifiersPressed NONE 
  1911.             KeyPressed DELETE 
  1912.         EndScript
  1913.         OnDown
  1914.             Let c=theColumnNumber
  1915.             Do "undos"
  1916.             If objectstate ("AM") =true
  1917.                 Clear DOCUMENT 
  1918.             ElseIf objectstate ("AM2") =true
  1919.                 SetObjectState "dokument",on
  1920.                 If IntegerFrom("home")>0
  1921.                     Do "CutTM"
  1922.                 Else
  1923.                     WorkWithDocument "dokument"
  1924.                     Delete CHARACTER 
  1925.                 EndIf
  1926.             ElseIf objectstate ("AM3") =true
  1927.                 SetObjectState "dokument",on
  1928.                 If IntegerFrom("home")>0
  1929.                     Do "CutTM"
  1930.                 Else
  1931.                     WorkWithDocument "dokument"
  1932.                     Delete CHARACTER 
  1933.                 EndIf
  1934.             Else
  1935.                 Delete CHARACTER 
  1936.             EndIf
  1937.             SetObjectState "AM3",false
  1938.             SetObjectState "AM2",false
  1939.             SetObjectState "AM",false
  1940.             
  1941.         EndScript
  1942.     EndObject
  1943.     AKey "KeyInput_3"
  1944.         Definition
  1945.             QualifiersPressed NONE 
  1946.             KeyPressed UP 
  1947.         EndScript
  1948.         OnDown
  1949.             Let c=theColumnNumber
  1950.             Do "undos"
  1951.             Do "eo"
  1952.             Do "cup"
  1953.             
  1954.         EndScript
  1955.     EndObject
  1956.     TextMenu "Unmark"
  1957.         Definition
  1958.             AttachTo MENU ," Text"
  1959.             Text "Markierung aufheben"
  1960.             Font "topaz",8 ; FontName, PointSize
  1961.             ShortCutKey "n"
  1962.         EndScript
  1963.         Occurred
  1964.             SetInteger "home",0
  1965.             MakeDocument "d2"
  1966.             WorkWithDocument "d2"
  1967.             Clear DOCUMENT 
  1968.             MoveCursorTo STARTOF DOCUMENT 
  1969.             SetInteger "home",0
  1970.             SetLineAttribute COLOR ,1,100000
  1971.             WorkWithDocument "TheDoc"
  1972.             Let cd=thelinenumber
  1973.             MoveCursorTo STARTOF DOCUMENT 
  1974.             SetInteger "home",0
  1975.             SetLineAttribute COLOR ,1,100000
  1976.             MoveCursor DOWN ,cd
  1977.             MoveCursor UP 
  1978.             SetObjectState "AM2",false
  1979.             SetObjectState "AM",false
  1980.             
  1981.             ;Code by J.Grus 1998
  1982.         EndScript
  1983.     EndObject
  1984.     TextMenu "Copy"
  1985.         Definition
  1986.             AttachTo MENU ," Text"
  1987.             Text "Kopieren"
  1988.             Font "topaz",8 ; FontName, PointSize
  1989.             ShortCutKey "c"
  1990.         EndScript
  1991.         Occurred
  1992.             Do "copy"
  1993.             SetObjectState "AM2",false
  1994.             SetObjectState "AM",false
  1995.         EndScript
  1996.     EndObject
  1997.     TextMenu "Paste"
  1998.         Definition
  1999.             AttachTo MENU ," Text"
  2000.             Text "Einfügen"
  2001.             Font "topaz",8 ; FontName, PointSize
  2002.             ShortCutKey "v"
  2003.         EndScript
  2004.         Occurred
  2005.             Let c=theColumnNumber
  2006.             Do "undos"
  2007.             SetObjectState "dokument",on
  2008.             Do "paste"
  2009.             SetObjectState "AM",false
  2010.             SetObjectState "AM2",false
  2011.             
  2012.         EndScript
  2013.     EndObject
  2014.     TextMenu "cut"
  2015.         Definition
  2016.             AttachTo MENU ," Text"
  2017.             Text "Löschen"
  2018.             Font "topaz",8 ; FontName, PointSize
  2019.             ShortCutKey "x"
  2020.         EndScript
  2021.         Occurred
  2022.             Let c=theColumnNumber
  2023.             Do "undos"
  2024.             If objectstate ("AM2") =true
  2025.                 WorkWithDocument "TheDoc"
  2026.                 SetObjectState "dokument",on
  2027.                 Do "cut2"
  2028.             ElseIf objectstate ("AM") =true
  2029.                 Clear DOCUMENT 
  2030.             Else
  2031.                 Delete CHARACTER 
  2032.             EndIf
  2033.             SetObjectState "AM",false
  2034.             SetObjectState "AM2",false
  2035.             
  2036.             ;Code by J.Grus 1998
  2037.             
  2038.             
  2039.         EndScript
  2040.     EndObject
  2041.     ImageMenu "MenuItem_5"
  2042.         Definition
  2043.             AttachTo MENU ," Text"
  2044.             BarImage
  2045.         EndScript
  2046.     EndObject
  2047.     TextMenu "Block OP`s"
  2048.         Definition
  2049.             AttachTo MENU ," Text"
  2050.             Text " Block ->"
  2051.             Font "topaz",8 ; FontName, PointSize
  2052.         EndScript
  2053.     EndObject
  2054.     TextMenu "Spezial"
  2055.         Definition
  2056.             AttachTo MENU ," Text"
  2057.             Text " Textfunktionen ->"
  2058.             Font "topaz",8 ; FontName, PointSize
  2059.         EndScript
  2060.     EndObject
  2061.     TextMenu "Datum einfügen"
  2062.         Definition
  2063.             AttachTo OBJECT ,"Spezial"
  2064.             Text "Datum einfügen"
  2065.             Font "topaz",8 ; FontName, PointSize
  2066.         EndScript
  2067.         Occurred
  2068.             Let c=theColumnNumber
  2069.             Do "undos"
  2070.             WorkWithDocument "D3"
  2071.             Clear DOCUMENT 
  2072.             Let dd = thedate
  2073.             Type dd
  2074.             MoveCursorTo STARTOF DOCUMENT 
  2075.             MoveCursorTo STARTOF LINE 
  2076.             Let yy = getword (theline,3,"/")
  2077.             Let dd = getword (theline,2,"/")
  2078.             Let mm = getword (theline,1,"/")
  2079.             Let ss = "."
  2080.             If yy < 19
  2081.                 Let y1= "20"
  2082.             Else
  2083.                 Let y1 = "19"
  2084.             EndIf
  2085.             WorkWithDocument "TheDoc"
  2086.             Type dd||ss||mm||ss||y1||yy
  2087.             
  2088.             
  2089.             ;Code by J.Grus 1997 - Beispiel für deutsches Datumsformat...
  2090.             
  2091.         EndScript
  2092.     EndObject
  2093.     TextMenu "Zeit"
  2094.         Definition
  2095.             AttachTo OBJECT ,"Spezial"
  2096.             Text "Zeit einfügen"
  2097.             Font "topaz",8 ; FontName, PointSize
  2098.         EndScript
  2099.         Occurred
  2100.             Let c=theColumnNumber
  2101.             Do "undos"
  2102.             Let dd=Thetime
  2103.             Type dd
  2104.             
  2105.         EndScript
  2106.     EndObject
  2107.     ImageMenu "MS_4"
  2108.         Definition
  2109.             AttachTo OBJECT ,"Spezial"
  2110.             BarImage
  2111.         EndScript
  2112.     EndObject
  2113.     TextMenu "Trimmer"
  2114.         Definition
  2115.             AttachTo OBJECT ,"Spezial"
  2116.             Text "Entferne Blocksatz..."
  2117.             Font "topaz",8 ; FontName, PointSize
  2118.         EndScript
  2119.         Occurred
  2120.             Let c=theColumnNumber
  2121.             Do "undos"
  2122.             Do "marke2"
  2123.             SetObjectState "AMarke2",false
  2124.             Do "empd2"
  2125.             WorkWithDocument "d2"
  2126.             Clear DOCUMENT 
  2127.             WorkWithDocument "TheDoc"
  2128.             Let ln=thelinenumber
  2129.             MoveCursorTo STARTOF DOCUMENT 
  2130.             Let L=linesindocument
  2131.             Let TXL=thelinenumber
  2132.             Loop
  2133.                 Let abc=theline
  2134.                 Let lj=trimstring (abc)
  2135.                 Delete LINE 
  2136.                 Type lj,NEWLINE 
  2137.                 IfError
  2138.                 EndIf
  2139.                 MoveCursor DOWN 
  2140.                 IfError
  2141.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  2142.                     ExitScript
  2143.                 EndIf
  2144.                 Let TXL=TXL+1
  2145.                 If TXL > L
  2146.                     ExitLoop
  2147.                 EndIf
  2148.             EndLoop
  2149.             MoveCursorTo STARTOF DOCUMENT 
  2150.             PositionOnLine L
  2151.             Let L=linesindocument*2
  2152.             MoveCursor DOWN 
  2153.             Loop
  2154.                 Delete LINE 
  2155.                 IfError
  2156.                     Let err = askforresponse("Error: Sorry unknown error...", "TextLoader Information", " OK ")
  2157.                     ExitScript
  2158.                 EndIf
  2159.                 Let TXL=TXL+1
  2160.                 If TXL > L
  2161.                     ExitLoop
  2162.                 EndIf
  2163.             EndLoop
  2164.             MoveCursorTo STARTOF DOCUMENT 
  2165.             
  2166.             
  2167.             ;Code by J.Grus 1998 - Löschen von ungenutzten Spaces & Tabs... (Blocksatz)
  2168.             
  2169.         EndScript
  2170.     EndObject
  2171.     TextMenu "Center"
  2172.         Definition
  2173.             AttachTo OBJECT ,"Spezial"
  2174.             Text "Mittig..."
  2175.             Font "topaz",8 ; FontName, PointSize
  2176.         EndScript
  2177.         Occurred
  2178.             Let c=theColumnNumber
  2179.             Do "undos"
  2180.             MoveCursorTo STARTOF DOCUMENT 
  2181.             MoveCursorTo STARTOF LINE 
  2182.             Let L=linesindocument
  2183.             Let TXL=thelinenumber
  2184.             Loop
  2185.                 Let sa = centerstring (theline,lengthofline+20)
  2186.                 Delete LINE 
  2187.                 Type sa
  2188.                 IfError
  2189.                 EndIf
  2190.                 MoveCursor DOWN 
  2191.                 IfError
  2192.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  2193.                     ExitScript
  2194.                 EndIf
  2195.                 Let TXL=TXL+1
  2196.                 If TXL > L
  2197.                     ExitLoop
  2198.                 EndIf
  2199.             EndLoop
  2200.             MoveCursorTo STARTOF DOCUMENT 
  2201.             
  2202.             ;Code by J.Grus 1997
  2203.             
  2204.         EndScript
  2205.     EndObject
  2206.     TextMenu "LJ"
  2207.         Definition
  2208.             AttachTo OBJECT ,"Spezial"
  2209.             Text "Links..."
  2210.             Font "topaz",8 ; FontName, PointSize
  2211.         EndScript
  2212.         Occurred
  2213.             Let c=theColumnNumber
  2214.             Do "undos"
  2215.             MoveCursorTo STARTOF DOCUMENT 
  2216.             MoveCursorTo STARTOF LINE 
  2217.             Let L=linesindocument
  2218.             Let TXL=thelinenumber
  2219.             Loop
  2220.                 Let sa = leftjustify (theline,lengthofline)
  2221.                 Delete LINE 
  2222.                 Type sa
  2223.                 IfError
  2224.                 EndIf
  2225.                 MoveCursor DOWN 
  2226.                 IfError
  2227.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  2228.                     ExitScript
  2229.                 EndIf
  2230.                 Let TXL=TXL+1
  2231.                 If TXL > L
  2232.                     ExitLoop
  2233.                 EndIf
  2234.             EndLoop
  2235.             MoveCursorTo STARTOF DOCUMENT 
  2236.             
  2237.             ;Code by J.Grus 1997
  2238.             
  2239.         EndScript
  2240.     EndObject
  2241.     TextMenu "AMarke2"
  2242.         Definition
  2243.             AttachTo MENU ," Text"
  2244.             Text "Zeige Absatzendmarke"
  2245.             Font "topaz",8 ; FontName, PointSize
  2246.             MenuFlags CHECKABLE 
  2247.         EndScript
  2248.         Occurred
  2249.             Let ln=thelinenumber
  2250.             Do "Marke"
  2251.             PositionOnLine ln
  2252.         EndScript
  2253.     EndObject
  2254.     ImageMenu "MenuItem_6"
  2255.         Definition
  2256.             AttachTo MENU ," Text"
  2257.             BarImage
  2258.         EndScript
  2259.     EndObject
  2260.     TextMenu "undo"
  2261.         Definition
  2262.             AttachTo MENU ," Text"
  2263.             Text "Undo"
  2264.             Font "topaz",8 ; FontName, PointSize
  2265.             ShortCutKey "u"
  2266.         EndScript
  2267.         Occurred
  2268.             Let ln=thelinenumber
  2269.             WorkWithDocument "TheDoc"
  2270.             Clear DOCUMENT 
  2271.             InsertDocument "Goil"
  2272.             IfError
  2273.             EndIf
  2274.             SetObjectState "Dokument",on
  2275.             PositionOnLine ln
  2276.             Do "CurPlace"
  2277.             
  2278.             
  2279.         EndScript
  2280.     EndObject
  2281.     TextMenu "BMark"
  2282.         Definition
  2283.             AttachTo OBJECT ,"Block OP`s"
  2284.             Text "markieren..."
  2285.             Font "topaz",8 ; FontName, PointSize
  2286.         EndScript
  2287.         Occurred
  2288.             SetObjectState "AM3",true
  2289.             Let ln=thelinenumber
  2290.             Do "marke2"
  2291.             SetObjectState "AMarke2",false
  2292.             Do "empd2"
  2293.             WorkWithDocument "d2"
  2294.             Clear DOCUMENT 
  2295.             WorkWithDocument "TheDoc"
  2296.             PositionOnLine ln
  2297.             MoveCursorTo STARTOF LINE 
  2298.             Let d=0
  2299.             Let m=1
  2300.             Let n=1
  2301.             SetInteger "home",thelinenumber
  2302.             Let bs=TheLineNumber
  2303.             Let cl=TheLineNumber
  2304.             UseColoredLines true
  2305.             SetLineAttribute COLOR ,4,1
  2306.             Do "report"
  2307.             Loop
  2308.                 MoveCursor DOWN 
  2309.                 SetLineAttribute COLOR ,4,1
  2310.                 Do "report"
  2311.                 If theline =""
  2312.                     ExitScript
  2313.                 EndIf
  2314.             EndLoop
  2315.             Let ol=IntegerFrom("home");oldline
  2316.             
  2317.             
  2318.             
  2319.             ;Code by J.Grus 1998 - Textblock markieren...
  2320.         EndScript
  2321.     EndObject
  2322.     TextMenu "BCopy"
  2323.         Definition
  2324.             AttachTo OBJECT ,"Block OP`s"
  2325.             Text "kopieren..."
  2326.             Font "topaz",8 ; FontName, PointSize
  2327.         EndScript
  2328.         Occurred
  2329.             Do "copy"
  2330.             SetObjectState "AM3",false
  2331.         EndScript
  2332.     EndObject
  2333.     TextMenu "BPaste"
  2334.         Definition
  2335.             AttachTo OBJECT ,"Block OP`s"
  2336.             Text "einfügen..."
  2337.             Font "topaz",8 ; FontName, PointSize
  2338.         EndScript
  2339.         Occurred
  2340.             Let c=theColumnNumber
  2341.             Do "undos"
  2342.             SetObjectState "dokument",on
  2343.             Do "paste"
  2344.             SetObjectState "AM3",false
  2345.             
  2346.         EndScript
  2347.     EndObject
  2348.     TextMenu "BCut"
  2349.         Definition
  2350.             AttachTo OBJECT ,"Block OP`s"
  2351.             Text "löschen..."
  2352.             Font "topaz",8 ; FontName, PointSize
  2353.         EndScript
  2354.         Occurred
  2355.             Let c=theColumnNumber
  2356.             Do "undos"
  2357.             SetObjectState "dokument",on
  2358.             If objectstate ("AM3") =true
  2359.                 If IntegerFrom("home")>0
  2360.                     Do "CutTM"
  2361.                 Else
  2362.                     WorkWithDocument "dokument"
  2363.                     Delete CHARACTER 
  2364.                 EndIf
  2365.             EndIf
  2366.             SetObjectState "AM2",false
  2367.             SetObjectState "AM",false
  2368.             SetObjectState "AM3",false
  2369.             
  2370.             ;Code by J.Grus - Cut marked textblock...
  2371.             
  2372.         EndScript
  2373.     EndObject
  2374.     Memo "d3"
  2375.         Definition
  2376.             MemoDocument "d3" ; where the text comes from
  2377.             ScrollBars RIGHT 
  2378.             Origin 2000,201
  2379.             Size 100,40
  2380.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  2381.         EndScript
  2382.     EndObject
  2383.     AKey "KeyInput_4"
  2384.         Definition
  2385.             QualifiersPressed NONE 
  2386.             KeyPressed RETURN 
  2387.         EndScript
  2388.         OnDown
  2389.             Let c=theColumnNumber
  2390.             Do "undos"
  2391.             WorkWithDocument "TheDoc"
  2392.             Let L=linesindocument
  2393.             Let TXL=thelinenumber
  2394.             If Objectstate("AMarke2") =true
  2395.                 Type "¶"
  2396.                 SplitLine
  2397.             Else
  2398.                 SplitLine
  2399.             EndIf
  2400.             
  2401.             ;Code by J.Grus - Example to set the endmark to lines... ©1997
  2402.             
  2403.         EndScript
  2404.     EndObject
  2405.     AreaButton "AM"
  2406.         Definition
  2407.             Origin 2000,164
  2408.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  2409.             Size 21,20
  2410.         EndScript
  2411.     EndObject
  2412.     AreaButton "AM2"
  2413.         Definition
  2414.             Origin 2000,135
  2415.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  2416.             Size 26,17
  2417.         EndScript
  2418.     EndObject
  2419.     AreaButton "am3"
  2420.         Definition
  2421.             Origin 2000,193
  2422.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  2423.             Size 26,19
  2424.         EndScript
  2425.     EndObject
  2426.     TextMenu "RJ"
  2427.         Definition
  2428.             AttachTo OBJECT ,"Spezial"
  2429.             Text "Rechts..."
  2430.             Font "topaz",8 ; FontName, PointSize
  2431.         EndScript
  2432.         Occurred
  2433.             Let c=theColumnNumber
  2434.             Do "undos"
  2435.             MoveCursorTo STARTOF DOCUMENT 
  2436.             MoveCursorTo STARTOF LINE 
  2437.             Let L=linesindocument
  2438.             Let TXL=thelinenumber
  2439.             Loop
  2440.                 Let sd="             "||theline
  2441.                 Delete LINE 
  2442.                 MoveCursor UP 
  2443.                 Type sd
  2444.                 IfError
  2445.                 EndIf
  2446.                 MoveCursor DOWN ,2
  2447.                 IfError
  2448.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  2449.                     ExitScript
  2450.                 EndIf
  2451.                 Let TXL=TXL+1
  2452.                 If TXL > L
  2453.                     ExitLoop
  2454.                 EndIf
  2455.             EndLoop
  2456.             MoveCursorTo STARTOF DOCUMENT 
  2457.             
  2458.             ;Code by J.Grus 1997
  2459.             
  2460.         EndScript
  2461.     EndObject
  2462.     TextMenu "Sprache"
  2463.         Definition
  2464.             AttachTo MENU ," PrefsTools "
  2465.             Text "Sprache"
  2466.             Font "personal",8 ; FontName, PointSize
  2467.         EndScript
  2468.     EndObject
  2469.     TextMenu "MenuSubItem_1"
  2470.         Definition
  2471.             AttachTo OBJECT ,"Sprache"
  2472.             Text "Deutsch    "
  2473.             Font "personal",8 ; FontName, PointSize
  2474.         EndScript
  2475.         Occurred
  2476.             Let DOM="Hauptfenster"
  2477.             GotoCard "Hauptfenster"
  2478.             
  2479.         EndScript
  2480.     EndObject
  2481.     TextMenu "MenuSubItem_2"
  2482.         Definition
  2483.             AttachTo OBJECT ,"Sprache"
  2484.             Text "Englisch"
  2485.             Font "personal",8 ; FontName, PointSize
  2486.         EndScript
  2487.         Occurred
  2488.             Let DOM="Hauptfenster_e"
  2489.             GotoCard "Hauptfenster_e"
  2490.             
  2491.         EndScript
  2492.     EndObject
  2493.     TextField "uuu"
  2494.         Definition
  2495.             InitialText ""
  2496.             Origin 2000,2000
  2497.             Size 161,19
  2498.             MaxFieldLength 256
  2499.         EndScript
  2500.     EndObject
  2501.     IntervalTimer "cur"
  2502.         Definition
  2503.             Duration 0,0,1 ; Minutes, Seconds, Jiffies
  2504.         EndScript
  2505.         Occurred
  2506.             SetText "uuu",""
  2507.             WorkWithDocument "TheDoc"
  2508.             Let c=theColumnNumber
  2509.             SetText "uuu",c
  2510.         EndScript
  2511.     EndObject
  2512.     ImageMenu "MS_3"
  2513.         Definition
  2514.             AttachTo OBJECT ,"Spezial"
  2515.             BarImage
  2516.         EndScript
  2517.     EndObject
  2518.     TextMenu "HEX"
  2519.         Definition
  2520.             AttachTo OBJECT ,"Spezial"
  2521.             Text "In HEX wandeln"
  2522.             Font "topaz",8 ; FontName, PointSize
  2523.         EndScript
  2524.         Occurred
  2525.             Let c=theColumnNumber
  2526.             Do "undos"
  2527.             Do "LHEX2"
  2528.             WorkWithDocument "TheDoc"
  2529.             
  2530.         EndScript
  2531.     EndObject
  2532.     TextField "sod"
  2533.         Definition
  2534.             InitialText ""
  2535.             Origin 2000,2000
  2536.             Size 89,15
  2537.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  2538.             MaxFieldLength 32
  2539.         EndScript
  2540.     EndObject
  2541.     TextMenu "ASCII"
  2542.         Definition
  2543.             AttachTo OBJECT ,"Spezial"
  2544.             Text "In ASCII wandeln"
  2545.             Font "topaz",8 ; FontName, PointSize
  2546.         EndScript
  2547.         Occurred
  2548.             Let c=theColumnNumber
  2549.             Do "undos"
  2550.             Do "LASC"
  2551.             WorkWithDocument "TheDoc"
  2552.             
  2553.         EndScript
  2554.     EndObject
  2555.     ImageMenu "MS_5"
  2556.         Definition
  2557.             AttachTo OBJECT ,"Spezial"
  2558.             BarImage
  2559.         EndScript
  2560.     EndObject
  2561.     TextMenu "Int"
  2562.         Definition
  2563.             AttachTo OBJECT ,"Spezial"
  2564.             Text "Verschlüsseln..."
  2565.             Font "topaz",8 ; FontName, PointSize
  2566.         EndScript
  2567.         Occurred
  2568.             Let c=theColumnNumber
  2569.             Do "undos"
  2570.             Do "LHEX3"
  2571.             WorkWithDocument "TheDoc"
  2572.             
  2573.         EndScript
  2574.     EndObject
  2575.     TextMenu "Ent"
  2576.         Definition
  2577.             AttachTo OBJECT ,"Spezial"
  2578.             Text "Entschlüsseln..."
  2579.             Font "topaz",8 ; FontName, PointSize
  2580.         EndScript
  2581.         Occurred
  2582.             Let c=theColumnNumber
  2583.             Do "undos"
  2584.             Do "LASC2"
  2585.             WorkWithDocument "TheDoc"
  2586.             
  2587.         EndScript
  2588.     EndObject
  2589. * End of Card "Hauptfenster"
  2590. *************
  2591.  
  2592. *************
  2593. * Card "Hauptfenster_e"
  2594.     NoAttach
  2595.     BeforeAttachment
  2596.         Let Doklinks=50
  2597.         Let Dokoben=50
  2598.         LoadSubDeck "SimpleReq","SimpleReq"
  2599.         LoadSubDeck "SuchReq","SuchReq"
  2600.         LoadSubDeck "ConiPalette","Palette"
  2601.         LoadSubDeck "ConiAvail","Avail"
  2602.         If exists ("sys:fonts/personal/8")
  2603.         Else
  2604.             OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Ich kann den Textloader","Font nicht finden. Bitte","zuerst Installieren!","Sonst lade ich TOPAZ/8!"
  2605.             Delay 0,5,1/50
  2606.         EndIf
  2607.         Echo " "
  2608.         Echo "Textloader von Pascal Gisin!"
  2609.         Echo "============================"
  2610.         Echo " "
  2611.         Echo "   >>>Der starke Editor für den AMIGA...<<<"
  2612.         Echo " "
  2613.         Echo "©1994-98 FORCESOFT (PASCAL GISIN)"
  2614.         Echo " "
  2615.         Echo "             My New Nickname, FORCE!!!"
  2616.     EndScript
  2617.     AfterAttachment
  2618.         SetWindowLimits 100,100,1000,1000
  2619.         
  2620.         Let Doklinks =WindowBorderLeft+3
  2621.         Let Dokoben =WindowBorderTop+3
  2622.         Let DokBreite =Windowwidth-WindowBorderRight-Doklinks-3
  2623.         Let Dokhoehe =Windowheight-Dokoben-6
  2624.         ReattachObject "Dokument"
  2625.         
  2626.         SetScreenTitle "»FORCE SOFT« presents the Textloader by P.Gisin ©1994-99 (Force)"
  2627.         If exists("TL.key")
  2628.             Let grösse =Filesize("TL.key")
  2629.             If grösse = 656
  2630.                 
  2631.             Else
  2632.                 OpenRequester "SimpleReq","Kommentar","","Textloader Information...","!Welcome to the Textloader","Texteditor! Please","make a Registration!","!!! Thanx !!!"
  2633.             EndIf
  2634.         EndIf
  2635.     EndScript
  2636.     BeforeDetachment
  2637.         SaveDocument "TheDoc","ram:Txt.bak",ASCII 
  2638.     EndScript
  2639.     MessageFromSubDeck
  2640.         If Arg1 <> ""
  2641.             Do Arg1,Alias("Arg2"),Alias("Arg3"),Alias("Arg4")
  2642.         EndIf
  2643.     EndScript
  2644.     Window "UserWindow"
  2645.         Definition
  2646.             Origin 9,6
  2647.             Title "Textloader 7.9 English"
  2648.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  2649.             Size 631,250
  2650.             WindowFlags ACTIVATE TOFRONT 
  2651.             VisualEffects NONE ,WAIT 
  2652.         EndScript
  2653.         OnCloseButton
  2654.             OpenRequester "SimpleReq","JaNein","EndeCloseknopf","Textloader Meldung..."," ","Möchten Sie wirklich","jetzt, den Textloader beenden?"," "
  2655.         EndScript
  2656.         OnActivated
  2657.             Nop
  2658.         EndScript
  2659.         OnResized
  2660.             Let DokBreite =Windowwidth-WindowBorderRight-Doklinks-3
  2661.             Let Dokhoehe= Windowheight-Dokoben-6
  2662.             ReattachObject "Dokument"
  2663.             ClearWindow
  2664.             SetObjectState "Dokument",on
  2665.             
  2666.         EndScript
  2667.     EndObject
  2668.     Memo "Dokument"
  2669.         Definition
  2670.             MemoDocument "TheDoc" ; where the text comes from
  2671.             ScrollBars RIGHT 
  2672.             Origin Doklinks,Dokoben
  2673.             Size Dokbreite,Dokhoehe
  2674.             Border OUTLINE ,2,1 ; BorderStyle, MainPen, ExtraPen
  2675.             Font "topaz",8 ; FontName, PointSize
  2676.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  2677.             Style PLAIN ,2,3
  2678.         EndScript
  2679.         OnDrag
  2680.             Nop
  2681.         EndScript
  2682.     EndObject
  2683.     TextMenu "Autor...                    »"
  2684.         Definition
  2685.             AttachTo MENU ,"Editormenu"
  2686.             Text "Author...                    »"
  2687.             Font "personal",8 ; FontName, PointSize
  2688.             Style PLAIN ,2,3
  2689.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2690.         EndScript
  2691.         Occurred
  2692.             Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"E-Mail: PGisin@nextron.ch"
  2693.             Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  2694.             
  2695.         EndScript
  2696.     EndObject
  2697.     TextMenu "SystemInfo..."
  2698.         Definition
  2699.             AttachTo MENU ,"Editormenu"
  2700.             Text "SystemInfo..."
  2701.             Font "personal",8 ; FontName, PointSize
  2702.             Style PLAIN ,2,3
  2703.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2704.             ShortCutKey "?"
  2705.         EndScript
  2706.         Occurred
  2707.             If Hilfsmodus = TRUE
  2708.                 OpenRequester "HelpReq","Card_1","","With you will get some informations","about memory and your system...,",""," "," "
  2709.             Else
  2710.                 GotoCard "Systeminfos..."
  2711.             EndIf
  2712.             
  2713.         EndScript
  2714.     EndObject
  2715.     TextMenu "Trennstrich4"
  2716.         Definition
  2717.             AttachTo MENU ,"Editormenu"
  2718.             Font "personal",8 ; FontName, PointSize
  2719.             Style PLAIN ,2,3
  2720.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  2721.             Text "-------------------------------"
  2722.             MenuFlags NONE 
  2723.             Highlight NONE 
  2724.             ShortCutKey ""
  2725.         EndScript
  2726.     EndObject
  2727.     TextMenu "Laden..."
  2728.         Definition
  2729.             AttachTo MENU ,"Editormenu"
  2730.             Text "Load..."
  2731.             Font "personal",8 ; FontName, PointSize
  2732.             Style PLAIN ,2,3
  2733.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2734.             ShortCutKey "L"
  2735.         EndScript
  2736.         Occurred
  2737.             SetObjectState "AMarke2",false
  2738.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  2739.             Let Laden=AskForFilename(NeueDatei,"Load ASCII/FTXT file...","155","39","340","180")
  2740.             Let NeueDatei=Laden
  2741.             If NeueDatei<>NOTHING
  2742.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  2743.                     Do "Beep"
  2744.                     SetWindowTitle "Can`t load file: "|||NeueDatei
  2745.                 Else
  2746.                     SetWindowTitle "Load Document..."
  2747.                     LoadDocument NeueDatei,"TheDoc"
  2748.                     IfError
  2749.                     Else
  2750.                         SetWindowTitle "Dateiname"|||NeueDatei
  2751.                     EndIf
  2752.                 EndIf
  2753.             EndIf
  2754.             Let c=theColumnNumber
  2755.             Do "undos"
  2756.             
  2757.         EndScript
  2758.     EndObject
  2759.     TextMenu "HLaden..."
  2760.         Definition
  2761.             AttachTo MENU ,"Editormenu"
  2762.             Text "Load as HEX..."
  2763.             Font "personal",8 ; FontName, PointSize
  2764.             Style PLAIN ,2,3
  2765.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2766.         EndScript
  2767.         Occurred
  2768.             SetObjectState "AMarke2",false
  2769.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  2770.             Do "LText"
  2771.             Let c=theColumnNumber
  2772.             Do "undos"
  2773.             MoveCursorTo STARTOF DOCUMENT 
  2774.             Let THETITLE=READCNT|||"bytes of"|||FileOf(READFILE)|||"("||FILECNT|||"bytes) loaded"
  2775.             SetWindowTitle thetitle
  2776.             
  2777.         EndScript
  2778.     EndObject
  2779.     TextMenu "Laden, Bild..."
  2780.         Definition
  2781.             AttachTo MENU ,"Editormenu"
  2782.             Text "Load Picture..."
  2783.             Font "personal",8 ; FontName, PointSize
  2784.             Style PLAIN ,2,3
  2785.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2786.             ShortCutKey "!"
  2787.         EndScript
  2788.         Occurred
  2789.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  2790.             Let Datei=AskForFileName(Bild, "Select picture...","155","39","340","180")
  2791.             If Datei <> ""
  2792.                 Let Bild = Datei
  2793.                 GotoCard "BildAnzeiger"
  2794.             EndIf
  2795.             
  2796.         EndScript
  2797.     EndObject
  2798.     TextMenu "LadenBild(PP)"
  2799.         Definition
  2800.             AttachTo MENU ,"Editormenu"
  2801.             Text "Load picture (PP)"
  2802.             Font "personal",8 ; FontName, PointSize
  2803.             Style PLAIN ,2,3
  2804.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2805.         EndScript
  2806.         Occurred
  2807.             If exists("Sys:c/PPshow")
  2808.                 Dos "Run >NIL: <Nil: Sys:c/PPshow"
  2809.             Else
  2810.                 Let Fehler=AskForResponse("Can`t find PPSHOW !","Error Message...","Sorry...")
  2811.                 If Fehler=1
  2812.                     DisableObject "LadenBild(PP)"
  2813.                 EndIf
  2814.             EndIf
  2815.             
  2816.         EndScript
  2817.     EndObject
  2818.     TextMenu "TrennstrichX1"
  2819.         Definition
  2820.             AttachTo MENU ,"Editormenu"
  2821.             Font "personal",8 ; FontName, PointSize
  2822.             Style PLAIN ,2,3
  2823.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  2824.             Text "-------------------------------"
  2825.             MenuFlags NONE 
  2826.             Highlight NONE 
  2827.             ShortCutKey ""
  2828.         EndScript
  2829.     EndObject
  2830.     TextMenu "Einfügen..."
  2831.         Definition
  2832.             AttachTo MENU ,"Editormenu"
  2833.             Text "Insert Text..."
  2834.             Font "personal",8 ; FontName, PointSize
  2835.             Style PLAIN ,2,3
  2836.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2837.             ShortCutKey "E"
  2838.         EndScript
  2839.         Occurred
  2840.             Let c=theColumnNumber
  2841.             Do "undos"
  2842.             Do "marke2"
  2843.             SetObjectState "AMarke2",false
  2844.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  2845.             Let Einfügen=AskForFilename(InsertMode,"Insert Text...","155","39","340","180")
  2846.             Let Newfile = Einfügen
  2847.             If newfile<>nothing
  2848.                 If Not Match(FileType(newfile),"Unknown","FTXT")
  2849.                     SetWindowTitle "Can`t insert selected file... """||newfile||""""
  2850.                 Else
  2851.                     SetWindowTitle "Inserting text....."
  2852.                     InsertDocument newfile,"TheDoc"
  2853.                     IfError
  2854.                         Do "Fehlerroutine"
  2855.                     Else
  2856.                         Let FileToGet=newfile
  2857.                         SetWindowTitle "FileName :"""||FileToGet||""""
  2858.                     EndIf
  2859.                 EndIf
  2860.             EndIf
  2861.             
  2862.         EndScript
  2863.     EndObject
  2864.     TextMenu "TrennstrichX9"
  2865.         Definition
  2866.             AttachTo MENU ,"Editormenu"
  2867.             Font "personal",8 ; FontName, PointSize
  2868.             Style PLAIN ,2,3
  2869.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  2870.             Text "-------------------------------"
  2871.             MenuFlags NONE 
  2872.             Highlight NONE 
  2873.             ShortCutKey ""
  2874.         EndScript
  2875.     EndObject
  2876.     TextMenu "Suchen..."
  2877.         Definition
  2878.             AttachTo MENU ,"Editormenu"
  2879.             Text "Search..."
  2880.             Font "personal",8 ; FontName, PointSize
  2881.             Style PLAIN ,2,3
  2882.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2883.             ShortCutKey "S"
  2884.         EndScript
  2885.         Occurred
  2886.             Do "S"
  2887.         EndScript
  2888.     EndObject
  2889.     TextMenu "Suchen fortsetzen..."
  2890.         Definition
  2891.             AttachTo MENU ,"Editormenu"
  2892.             Text "Continue search..."
  2893.             Font "personal",8 ; FontName, PointSize
  2894.             Style PLAIN ,2,3
  2895.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2896.             ShortCutKey "W"
  2897.         EndScript
  2898.         Occurred
  2899.             Do "SF"
  2900.         EndScript
  2901.     EndObject
  2902.     TextMenu "TrennstrichX7"
  2903.         Definition
  2904.             AttachTo MENU ,"Editormenu"
  2905.             Font "personal",8 ; FontName, PointSize
  2906.             Style PLAIN ,2,3
  2907.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  2908.             Text "-------------------------------"
  2909.             MenuFlags NONE 
  2910.             Highlight NONE 
  2911.             ShortCutKey ""
  2912.         EndScript
  2913.     EndObject
  2914.     TextMenu "Speichern, ASCII"
  2915.         Definition
  2916.             AttachTo MENU ,"Editormenu"
  2917.             Text "Save Text as ASCII"
  2918.             Font "personal",8 ; FontName, PointSize
  2919.             Style PLAIN ,2,3
  2920.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2921.             ShortCutKey "A"
  2922.         EndScript
  2923.         Occurred
  2924.             Do "marke2"
  2925.             SetObjectState "AMarke2",false
  2926.             SetFileRequestMode SAVEFILEMODE ,NONE 
  2927.             Let SichernAscii=AskForFileName(Antwort,"Save text as ASCII...","155","39","340","180")
  2928.             Let Antwort = SichernAscii
  2929.             If Antwort <> ""
  2930.                 Let Dateispeichername = Antwort
  2931.                 SetWindowTitle "Saving ASCII Format!"
  2932.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  2933.                 IfError
  2934.                     Do "Fehlerroutine"
  2935.                 EndIf
  2936.             EndIf
  2937.             SetWindowTitle "Textloader ©  by P.Gisin"
  2938.             
  2939.         EndScript
  2940.     EndObject
  2941.     TextMenu "Speichern, FTXT"
  2942.         Definition
  2943.             AttachTo MENU ,"Editormenu"
  2944.             Text "Save Text as FTXT"
  2945.             Font "personal",8 ; FontName, PointSize
  2946.             Style PLAIN ,2,3
  2947.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2948.             ShortCutKey "F"
  2949.         EndScript
  2950.         Occurred
  2951.             Do "marke2"
  2952.             SetObjectState "AMarke2",false
  2953.             SetFileRequestMode SAVEFILEMODE ,NONE 
  2954.             Let SpeichernFTXT=askForFilename(FTXTSave,"Saving FTXT Format...","155","39","340","180")
  2955.             Let FTXTSave = SpeichernFTXT
  2956.             If FTXTSave <> ""
  2957.                 Let Dateispeichername = FTXTSave
  2958.                 SetWindowTitle "Saving FTXT Format!"
  2959.                 SaveDocument "TheDoc",Dateispeichername,FTXT 
  2960.                 IfError
  2961.                     Do "Fehlerroutine"
  2962.                 EndIf
  2963.             EndIf
  2964.             SetWindowTitle "Textloader © by P.Gisin"
  2965.             
  2966.         EndScript
  2967.     EndObject
  2968.     TextMenu "Speichern, RTF"
  2969.         Definition
  2970.             AttachTo MENU ,"Editormenu"
  2971.             Text "Save Text as RTF"
  2972.             Font "personal",8 ; FontName, PointSize
  2973.             Style PLAIN ,2,3
  2974.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  2975.         EndScript
  2976.         Occurred
  2977.             Do "wmarke"
  2978.             SetObjectState "AMarke2",false
  2979.             SetFileRequestMode SAVEFILEMODE ,NONE 
  2980.             Let SpeichernFTXT=askForFilename(FTXTSave||".rtf","Save Text as RTF-Format..","155","39","340","180")
  2981.             Let FTXTSave = SpeichernFTXT
  2982.             If FTXTSave <> ""
  2983.                 Let Dateispeichername = FTXTSave
  2984.                 SetWindowTitle "Saving now as RTF..."
  2985.                 SaveDocument "RTF",Dateispeichername
  2986.                 IfError
  2987.                     Do "Fehlerroutine"
  2988.                 EndIf
  2989.             EndIf
  2990.             SetWindowTitle "Textloader © by P.Gisin"
  2991.             
  2992.         EndScript
  2993.     EndObject
  2994.     TextMenu "Speichern, Backup           »"
  2995.         Definition
  2996.             AttachTo MENU ,"Editormenu"
  2997.             Text "Save Backup           »"
  2998.             Font "personal",8 ; FontName, PointSize
  2999.             Style PLAIN ,2,3
  3000.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3001.         EndScript
  3002.     EndObject
  3003.     TextMenu "Sicherheitskopie anlegen (1)"
  3004.         Definition
  3005.             AttachTo OBJECT ,"Speichern, Backup           »"
  3006.             Text "Save Backup (1)"
  3007.             Font "personal",8 ; FontName, PointSize
  3008.             Style PLAIN ,2,3
  3009.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  3010.         EndScript
  3011.         Occurred
  3012.             Do "marke2"
  3013.             SetObjectState "AMarke2",false
  3014.             SetWindowTitle "Saving text to RAM: as Backup (1)"
  3015.             SaveDocument "TheDoc","ram:1BackupTextloader",ASCII 
  3016.             IfError
  3017.                 Do "Fehlerroutine"
  3018.             EndIf
  3019.             Delay 0,3,1/50
  3020.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  3021.             
  3022.         EndScript
  3023.     EndObject
  3024.     TextMenu "Speichern"
  3025.         Definition
  3026.             AttachTo MENU ,"Editormenu"
  3027.             Text "Save..."
  3028.             Font "personal",8 ; FontName, PointSize
  3029.             Style PLAIN ,2,3
  3030.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3031.             ShortCutKey "R"
  3032.         EndScript
  3033.         Occurred
  3034.             Do "marke2"
  3035.             Let Abfrage = AskForResponse("Should the text saved to the"||Char(10)||"old location? Do you know "||Char(10)||"what you doing?","Textloader Information...","OK|Cancel")
  3036.             If Abfrage =1
  3037.                 SaveAllChangedBuffers
  3038.                 If error
  3039.                     Do "FehlerRoutine"
  3040.                     If Abfrage =0
  3041.                     EndIf
  3042.                 EndIf
  3043.             EndIf
  3044.             
  3045.         EndScript
  3046.     EndObject
  3047.     TextMenu "TrennstrichX2"
  3048.         Definition
  3049.             AttachTo MENU ,"Editormenu"
  3050.             Font "personal",8 ; FontName, PointSize
  3051.             Style PLAIN ,2,3
  3052.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3053.             Text "-------------------------------"
  3054.             MenuFlags NONE 
  3055.             Highlight NONE 
  3056.             ShortCutKey ""
  3057.         EndScript
  3058.     EndObject
  3059.     TextMenu "Löschen, TEXT"
  3060.         Definition
  3061.             AttachTo MENU ,"Editormenu"
  3062.             Text "Clear document..."
  3063.             Font "personal",8 ; FontName, PointSize
  3064.             Style PLAIN ,2,3
  3065.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3066.             ShortCutKey "T"
  3067.         EndScript
  3068.         Occurred
  3069.             Let c=Theline
  3070.             Do "undos"
  3071.             OpenRequester "SimpleReq","JaNein2","Löschen","Textloader Message...","Do you really want to","clear the whole document ?","","???"
  3072.             
  3073.             
  3074.         EndScript
  3075.     EndObject
  3076.     TextMenu "Löschen, ZEILE"
  3077.         Definition
  3078.             AttachTo MENU ,"Editormenu"
  3079.             Text "Delete Line..."
  3080.             Font "personal",8 ; FontName, PointSize
  3081.             Style PLAIN ,2,3
  3082.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3083.             ShortCutKey "Z"
  3084.         EndScript
  3085.         Occurred
  3086.             Let c=Theline
  3087.             Do "undos"
  3088.             WorkWithDocument "TheDoc"
  3089.             Clear LINE 
  3090.             
  3091.         EndScript
  3092.     EndObject
  3093.     TextMenu "TrennstrichX3"
  3094.         Definition
  3095.             AttachTo MENU ,"Editormenu"
  3096.             Font "personal",8 ; FontName, PointSize
  3097.             Style PLAIN ,2,3
  3098.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3099.             Text "-------------------------------"
  3100.             MenuFlags NONE 
  3101.             Highlight NONE 
  3102.             ShortCutKey ""
  3103.         EndScript
  3104.     EndObject
  3105.     TextMenu "Cursor, Textanfang...   "
  3106.         Definition
  3107.             AttachTo MENU ,"Editormenu"
  3108.             Text "Cursor to start of text..."
  3109.             Font "personal",8 ; FontName, PointSize
  3110.             Style PLAIN ,2,3
  3111.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3112.             ShortCutKey ":"
  3113.         EndScript
  3114.         Occurred
  3115.             WorkWithDocument "TheDoc"
  3116.             MoveCursorTo STARTOF DOCUMENT 
  3117.         EndScript
  3118.     EndObject
  3119.     TextMenu "Cursor, Textende..."
  3120.         Definition
  3121.             AttachTo MENU ,"Editormenu"
  3122.             Text "Cursor to end of line..."
  3123.             Font "personal",8 ; FontName, PointSize
  3124.             Style PLAIN ,2,3
  3125.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3126.             ShortCutKey ";"
  3127.         EndScript
  3128.         Occurred
  3129.             WorkWithDocument "TheDoc"
  3130.             MoveCursorTo ENDOF DOCUMENT 
  3131.         EndScript
  3132.     EndObject
  3133.     TextMenu "Cursor, EineZeile"
  3134.         Definition
  3135.             AttachTo MENU ,"Editormenu"
  3136.             Text "Insert new line..."
  3137.             Font "personal",8 ; FontName, PointSize
  3138.             Style PLAIN ,2,3
  3139.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3140.             ShortCutKey "D"
  3141.         EndScript
  3142.         Occurred
  3143.             NewLine
  3144.         EndScript
  3145.     EndObject
  3146.     TextMenu "TrennstrichX4"
  3147.         Definition
  3148.             AttachTo MENU ,"Editormenu"
  3149.             Font "personal",8 ; FontName, PointSize
  3150.             Style PLAIN ,2,3
  3151.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3152.             Text "-------------------------------"
  3153.             MenuFlags NONE 
  3154.             Highlight NONE 
  3155.             ShortCutKey ""
  3156.         EndScript
  3157.     EndObject
  3158.     TextMenu "Drucken..."
  3159.         Definition
  3160.             AttachTo MENU ,"Editormenu"
  3161.             Text "Print..."
  3162.             Font "personal",8 ; FontName, PointSize
  3163.             Style PLAIN ,2,3
  3164.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3165.             ShortCutKey "P"
  3166.         EndScript
  3167.         Occurred
  3168.             OpenRequester "SimpleReq","JaNein2","Drucken","Textloader Message...","Do you really want to","print this Document ?",""," "
  3169.             
  3170.         EndScript
  3171.     EndObject
  3172.     TextMenu "TrennstrichX5"
  3173.         Definition
  3174.             AttachTo MENU ,"Editormenu"
  3175.             Font "personal",8 ; FontName, PointSize
  3176.             Style PLAIN ,2,3
  3177.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3178.             Text "-------------------------------"
  3179.             MenuFlags NONE 
  3180.             Highlight NONE 
  3181.             ShortCutKey ""
  3182.         EndScript
  3183.     EndObject
  3184.     TextMenu "Beenden..."
  3185.         Definition
  3186.             AttachTo MENU ,"Editormenu"
  3187.             Text "Quit..."
  3188.             Font "personal",8 ; FontName, PointSize
  3189.             Style PLAIN ,2,3
  3190.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3191.             ShortCutKey "Q"
  3192.         EndScript
  3193.         Occurred
  3194.             OpenRequester "SimpleReq","JaNein2","Ende","Textloader Message...","Do you want save the Document ","before you leaving this program ???","",""
  3195.             
  3196.         EndScript
  3197.     EndObject
  3198.     TextMenu "Mark"
  3199.         Definition
  3200.             AttachTo MENU ," Text"
  3201.             Text "Mark..."
  3202.             Font "topaz",8 ; FontName, PointSize
  3203.             ShortCutKey "m"
  3204.         EndScript
  3205.         Occurred
  3206.             SetObjectState "AM2",true
  3207.             Do "empd2"
  3208.             Do "curplace"
  3209.             Do "markb"
  3210.             
  3211.         EndScript
  3212.     EndObject
  3213.     TextMenu "Mark2"
  3214.         Definition
  3215.             AttachTo MENU ," Text"
  3216.             Text "Mark all..."
  3217.             Font "topaz",8 ; FontName, PointSize
  3218.         EndScript
  3219.         Occurred
  3220.             SetObjectState "AM",true
  3221.             Let ln=thelinenumber
  3222.             Do "empd2"
  3223.             Do "curplace"
  3224.             Do "markb2"
  3225.             PositionOnLine ln
  3226.             
  3227.         EndScript
  3228.     EndObject
  3229.     TextMenu "HTML Information"
  3230.         Definition
  3231.             AttachTo MENU ," WWWEdit "
  3232.             Text "HTML (Infos)"
  3233.             Font "personal",8 ; FontName, PointSize
  3234.             Style PLAIN ,2,3
  3235.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3236.         EndScript
  3237.         Occurred
  3238.             LoadDocument ("SchabloneInfo"),"TheDoc"
  3239.             IfError
  3240.                 Let err = askforresponse("Cancel...", "Textloader Information", " OK ")
  3241.             EndIf
  3242.             
  3243.         EndScript
  3244.     EndObject
  3245.     TextMenu "Schablone öffnen..."
  3246.         Definition
  3247.             AttachTo MENU ," WWWEdit "
  3248.             Text "HTML (Text)"
  3249.             Font "personal",8 ; FontName, PointSize
  3250.             Style PLAIN ,2,3
  3251.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3252.         EndScript
  3253.         Occurred
  3254.             LoadDocument ("Schablone1"),"TheDoc"
  3255.             IfError
  3256.                 Let err = askforresponse("Cancel...", "Textloader Information", " OK ")
  3257.             EndIf
  3258.             
  3259.         EndScript
  3260.     EndObject
  3261.     TextMenu "Systemuhr..."
  3262.         Definition
  3263.             AttachTo MENU ," Workbench "
  3264.             Text "Clock..."
  3265.             Font "personal",8 ; FontName, PointSize
  3266.             Style PLAIN ,2,3
  3267.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3268.             ShortCutKey "U"
  3269.         EndScript
  3270.         Occurred
  3271.             Dos "Run >Nil: <Nil: Sys:Utilities/Clock" ; Run the application
  3272.         EndScript
  3273.     EndObject
  3274.     TextMenu "Taschenrechner..."
  3275.         Definition
  3276.             AttachTo MENU ," Workbench "
  3277.             Text "Calculator..."
  3278.             Font "personal",8 ; FontName, PointSize
  3279.             Style PLAIN ,2,3
  3280.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3281.             ShortCutKey "C"
  3282.         EndScript
  3283.         Occurred
  3284.             Dos "Run >Nil: <Nil: Sys:Tools/Calculator" ; Run the application
  3285.         EndScript
  3286.     EndObject
  3287.     TextMenu "Tastaturbelegung..."
  3288.         Definition
  3289.             AttachTo MENU ," Workbench "
  3290.             Text "Keyshow..."
  3291.             Font "personal",8 ; FontName, PointSize
  3292.             Style PLAIN ,2,3
  3293.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3294.             ShortCutKey "K"
  3295.         EndScript
  3296.         Occurred
  3297.             Dos "Run >Nil: <Nil: Sys:Tools/KeyShow" ; Run the application
  3298.         EndScript
  3299.     EndObject
  3300.     TextMenu "Farbeneinsteller..."
  3301.         Definition
  3302.             AttachTo MENU ," Workbench "
  3303.             Text "Palette..."
  3304.             Font "personal",8 ; FontName, PointSize
  3305.             Style PLAIN ,2,3
  3306.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3307.             ShortCutKey "+"
  3308.         EndScript
  3309.         Occurred
  3310.             If exists("sys:Tools/Colors")
  3311.                 Dos "Run >Nil: <Nil: Sys:Tools/Colors" ; Run the application
  3312.             ElseIf exists("sys:Prefs/Palette")
  3313.                 Dos "Run >Nil: <Nil: Sys:Prefs/Palette"
  3314.             Else
  3315.                 Let Error =askforResponse("Programm existiert nicht!","Textloader Fehler...","")
  3316.             EndIf
  3317.         EndScript
  3318.     EndObject
  3319.     TextMenu "HD-Toolbox..."
  3320.         Definition
  3321.             AttachTo MENU ," Workbench "
  3322.             Font "personal",8 ; FontName, PointSize
  3323.             Style PLAIN ,2,3
  3324.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3325.             Text "HD-Toolbox..."
  3326.             MenuFlags NONE 
  3327.             Highlight COMPLEMENT 
  3328.             ShortCutKey "%"
  3329.         EndScript
  3330.         Occurred
  3331.             Dos "Run >Nil: <Nil: Sys:Tools/HDToolbox" ; Run the application
  3332.         EndScript
  3333.     EndObject
  3334.     TextMenu "Cli-Fenster..."
  3335.         Definition
  3336.             AttachTo MENU ," Workbench "
  3337.             Text "Open Shell..."
  3338.             Font "personal",8 ; FontName, PointSize
  3339.             Style PLAIN ,2,3
  3340.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3341.             ShortCutKey "$"
  3342.         EndScript
  3343.         Occurred
  3344.             Dos "Run >Nil: <Nil: Sys:System/Cli" ; Run the application
  3345.         EndScript
  3346.     EndObject
  3347.     TextMenu "Trennstrich6"
  3348.         Definition
  3349.             AttachTo MENU ," Workbench "
  3350.             Font "personal",8 ; FontName, PointSize
  3351.             Style PLAIN ,2,3
  3352.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3353.             Text "-------------------------------"
  3354.             MenuFlags NONE 
  3355.             Highlight NONE 
  3356.             ShortCutKey ""
  3357.         EndScript
  3358.     EndObject
  3359.     TextMenu "MenuItem_4"
  3360.         Definition
  3361.             AttachTo MENU ," Workbench "
  3362.             Font "personal",8 ; FontName, PointSize
  3363.             Style PLAIN ,2,3
  3364.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3365.             Text "Multiview..."
  3366.             MenuFlags NONE 
  3367.             Highlight COMPLEMENT 
  3368.             ShortCutKey "0"
  3369.         EndScript
  3370.         Occurred
  3371.             Dos "Run >Nil: <Nil: Sys:Utilities/Multiview"
  3372.             If error
  3373.                 Do "Fehlerroutine"
  3374.             EndIf
  3375.         EndScript
  3376.     EndObject
  3377.     TextMenu "DruckerPrefs..."
  3378.         Definition
  3379.             AttachTo MENU ," Workbench "
  3380.             Text "Printer..."
  3381.             Font "personal",8 ; FontName, PointSize
  3382.             Style PLAIN ,2,3
  3383.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3384.             ShortCutKey "1"
  3385.         EndScript
  3386.         Occurred
  3387.             Dos "Run >Nil: <Nil: Sys:prefs/Printer" ; Run the application
  3388.         EndScript
  3389.     EndObject
  3390.     TextMenu "Zeiteinsteller..."
  3391.         Definition
  3392.             AttachTo MENU ," Workbench "
  3393.             Text "Time..."
  3394.             Font "personal",8 ; FontName, PointSize
  3395.             Style PLAIN ,2,3
  3396.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3397.             ShortCutKey "2"
  3398.         EndScript
  3399.         Occurred
  3400.             Dos "Run >Nil: <Nil: Sys:prefs/Time" ; Run the application
  3401.         EndScript
  3402.     EndObject
  3403.     TextMenu "Sprache(Locale)..."
  3404.         Definition
  3405.             AttachTo MENU ," Workbench "
  3406.             Text "Locale..."
  3407.             Font "personal",8 ; FontName, PointSize
  3408.             Style PLAIN ,2,3
  3409.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3410.             ShortCutKey "3"
  3411.         EndScript
  3412.         Occurred
  3413.             Dos "Run >Nil: <Nil: Sys:prefs/Locale" ; Run the application
  3414.         EndScript
  3415.     EndObject
  3416.     TextMenu "Screenmodeprefs..."
  3417.         Definition
  3418.             AttachTo MENU ," Workbench "
  3419.             Text "Screenmode..."
  3420.             Font "personal",8 ; FontName, PointSize
  3421.             Style PLAIN ,2,3
  3422.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3423.             ShortCutKey "4"
  3424.         EndScript
  3425.         Occurred
  3426.             Dos "Run >Nil: <Nil: Sys:Prefs/ScreenMode" ; Run the application
  3427.         EndScript
  3428.     EndObject
  3429.     TextMenu "PrinterGfx..."
  3430.         Definition
  3431.             AttachTo MENU ," Workbench "
  3432.             Font "personal",8 ; FontName, PointSize
  3433.             Style PLAIN ,2,3
  3434.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3435.             Text "PrinterGfx..."
  3436.             MenuFlags NONE 
  3437.             Highlight COMPLEMENT 
  3438.             ShortCutKey "5"
  3439.         EndScript
  3440.         Occurred
  3441.             Dos "Run >Nil: <Nil: Sys:prefs/PrinterGfx" ; Run the application
  3442.         EndScript
  3443.     EndObject
  3444.     TextMenu "Fonteinsteller..."
  3445.         Definition
  3446.             AttachTo MENU ," Workbench "
  3447.             Text "Fonts..."
  3448.             Font "personal",8 ; FontName, PointSize
  3449.             Style PLAIN ,2,3
  3450.             TextColors 3,2,JAM1  ; PenA, PenB, DrawMode
  3451.             ShortCutKey "6"
  3452.         EndScript
  3453.         Occurred
  3454.             Dos "Run >Nil: <Nil: Sys:prefs/Font" ; Run the application
  3455.         EndScript
  3456.     EndObject
  3457.     TextMenu "Palette..."
  3458.         Definition
  3459.             AttachTo MENU ," PrefsTools "
  3460.             Font "personal",8 ; FontName, PointSize
  3461.             Style PLAIN ,2,3
  3462.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3463.             Text "Palette..."
  3464.             MenuFlags NONE 
  3465.             Highlight COMPLEMENT 
  3466.             ShortCutKey "X"
  3467.         EndScript
  3468.         Occurred
  3469.             OpenRequester "Palette","Palette"
  3470.         EndScript
  3471.     EndObject
  3472.     TextMenu "Speicher..."
  3473.         Definition
  3474.             AttachTo MENU ," PrefsTools "
  3475.             Text "Avail..."
  3476.             Font "personal",8 ; FontName, PointSize
  3477.             Style PLAIN ,2,3
  3478.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3479.             ShortCutKey "M"
  3480.         EndScript
  3481.         Occurred
  3482.             OpenRequester "Avail","Avail"
  3483.         EndScript
  3484.     EndObject
  3485.     TextMenu "Sicherheitskopie anlegen (2)"
  3486.         Definition
  3487.             AttachTo OBJECT ,"Speichern, Backup           »"
  3488.             Text "Save Backup (2)"
  3489.             Font "personal",8 ; FontName, PointSize
  3490.             Style PLAIN ,2,3
  3491.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  3492.         EndScript
  3493.         Occurred
  3494.             Do "marke2"
  3495.             SetObjectState "AMarke2",false
  3496.             SetWindowTitle "Saving text to RAM: as Backup (2)"
  3497.             SaveDocument "TheDoc","ram:2BackupTextloader",ASCII 
  3498.             IfError
  3499.                 Do "Fehlerroutine"
  3500.             EndIf
  3501.             Delay 0,3,1/50
  3502.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  3503.             
  3504.         EndScript
  3505.     EndObject
  3506.     TextMenu "Sicherheitskopie anlegen (3)"
  3507.         Definition
  3508.             AttachTo OBJECT ,"Speichern, Backup           »"
  3509.             Text "Save Backup (3)"
  3510.             Font "personal",8 ; FontName, PointSize
  3511.             Style PLAIN ,2,3
  3512.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  3513.         EndScript
  3514.         Occurred
  3515.             Do "marke2"
  3516.             SetObjectState "AMarke2",false
  3517.             SetWindowTitle "Saving text to RAM: as Backup (3)"
  3518.             SaveDocument "TheDoc","ram:3BackupTextloader",ASCII 
  3519.             IfError
  3520.                 Do "Fehlerroutine"
  3521.             EndIf
  3522.             Delay 0,3,1/50
  3523.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  3524.             
  3525.         EndScript
  3526.     EndObject
  3527.     TextMenu "Sicherheitskopie anlegen (4)"
  3528.         Definition
  3529.             AttachTo OBJECT ,"Speichern, Backup           »"
  3530.             Text "Save Backup (4)"
  3531.             Font "personal",8 ; FontName, PointSize
  3532.             Style PLAIN ,2,3
  3533.             TextColors 3,1,JAM2  ; PenA, PenB, DrawMode
  3534.         EndScript
  3535.         Occurred
  3536.             Do "marke2"
  3537.             SetObjectState "AMarke2",false
  3538.             SetWindowTitle "Saving text to RAM: as Backup (4)"
  3539.             SaveDocument "TheDoc","ram:4BackupTextloader",ASCII 
  3540.             IfError
  3541.                 Do "Fehlerroutine"
  3542.             EndIf
  3543.             Delay 0,3,1/50
  3544.             SetWindowTitle "Textloader Editor, von Pascal Gisin"
  3545.             
  3546.         EndScript
  3547.     EndObject
  3548.     TextMenu "-------------------------"
  3549.         Definition
  3550.             AttachTo OBJECT ,"Speichern, Backup           »"
  3551.             Font "topaz",8 ; FontName, PointSize
  3552.             Style PLAIN ,2,3
  3553.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3554.             Text "-------------------------"
  3555.             MenuFlags NONE 
  3556.             Highlight NONE 
  3557.             ShortCutKey ""
  3558.         EndScript
  3559.     EndObject
  3560.     TextMenu "Sicherheitskopie einfügen (1)"
  3561.         Definition
  3562.             AttachTo OBJECT ,"Speichern, Backup           »"
  3563.             Text "Insert Backup (1)"
  3564.             Font "personal",8 ; FontName, PointSize
  3565.             Style PLAIN ,2,3
  3566.             TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
  3567.         EndScript
  3568.         Occurred
  3569.             LoadDocument "ram:1BackupTextloader","TheDoc"
  3570.         EndScript
  3571.     EndObject
  3572.     TextMenu "Sicherheitskopie einfügen (2)"
  3573.         Definition
  3574.             AttachTo OBJECT ,"Speichern, Backup           »"
  3575.             Text "Insert Backup (2)"
  3576.             Font "personal",8 ; FontName, PointSize
  3577.             Style PLAIN ,2,3
  3578.             TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
  3579.         EndScript
  3580.         Occurred
  3581.             LoadDocument "ram:2BackupTextloader","TheDoc"
  3582.         EndScript
  3583.     EndObject
  3584.     TextMenu "Sicherheitskopie einfügen (3)"
  3585.         Definition
  3586.             AttachTo OBJECT ,"Speichern, Backup           »"
  3587.             Text "Insert Backup (3)"
  3588.             Font "personal",8 ; FontName, PointSize
  3589.             Style PLAIN ,2,3
  3590.             TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
  3591.         EndScript
  3592.         Occurred
  3593.             LoadDocument "ram:3BackupTextloader","TheDoc"
  3594.         EndScript
  3595.     EndObject
  3596.     TextMenu "Sicherheitskopie einfügen (4)"
  3597.         Definition
  3598.             AttachTo OBJECT ,"Speichern, Backup           »"
  3599.             Text "Insert Backup (4)"
  3600.             Font "personal",8 ; FontName, PointSize
  3601.             Style PLAIN ,2,3
  3602.             TextColors 0,1,JAM2  ; PenA, PenB, DrawMode
  3603.         EndScript
  3604.         Occurred
  3605.             LoadDocument "ram:4BackupTextloader","TheDoc"
  3606.         EndScript
  3607.     EndObject
  3608.     TextMenu "OnlineHelp..."
  3609.         Definition
  3610.             AttachTo MENU ," Help "
  3611.             Font "personal",8 ; FontName, PointSize
  3612.             Style PLAIN ,2,3
  3613.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3614.             Text "OnlineHelp..."
  3615.             MenuFlags NONE 
  3616.             Highlight COMPLEMENT 
  3617.             ShortCutKey "O"
  3618.         EndScript
  3619.         Occurred
  3620.             If EXISTS ("sys:Utilities/Amigaguide")
  3621.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  3622.             Else
  3623.                 If EXISTS ("sys:Utilities/Multiview")
  3624.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  3625.                 Else
  3626.                     If EXISTS ("sys:c/Amigaguide")
  3627.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  3628.                     Else
  3629.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  3630.                     EndIf
  3631.                 EndIf
  3632.             EndIf
  3633.         EndScript
  3634.     EndObject
  3635.     TextMenu "MenuItem_1"
  3636.         Definition
  3637.             AttachTo MENU ," Workbench "
  3638.             Font "personal",8 ; FontName, PointSize
  3639.             Style PLAIN ,2,3
  3640.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3641.             Text "Pointer..."
  3642.             MenuFlags NONE 
  3643.             Highlight COMPLEMENT 
  3644.             ShortCutKey "7"
  3645.         EndScript
  3646.         Occurred
  3647.             Dos "Run >Nil: <Nil: Sys:Prefs/Pointer" ; Run the application
  3648.         EndScript
  3649.     EndObject
  3650.     TextMenu "MenuItem_2"
  3651.         Definition
  3652.             AttachTo MENU ," Workbench "
  3653.             Font "personal",8 ; FontName, PointSize
  3654.             Style PLAIN ,2,3
  3655.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3656.             Text "Sound..."
  3657.             MenuFlags NONE 
  3658.             Highlight COMPLEMENT 
  3659.             ShortCutKey "8"
  3660.         EndScript
  3661.         Occurred
  3662.             Dos "Run >Nil: <Nil: Sys:Prefs/Sound" ; Run the application
  3663.         EndScript
  3664.     EndObject
  3665.     TextMenu "MenuItem3"
  3666.         Definition
  3667.             AttachTo MENU ," Workbench "
  3668.             Font "personal",8 ; FontName, PointSize
  3669.             Style PLAIN ,2,3
  3670.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3671.             Text "PrinterPostscript..."
  3672.             MenuFlags NONE 
  3673.             Highlight COMPLEMENT 
  3674.             ShortCutKey "9"
  3675.         EndScript
  3676.         Occurred
  3677.             Dos "Run >Nil: <Nil: Sys:Prefs/PrinterPS" ; Run the application
  3678.         EndScript
  3679.     EndObject
  3680.     TextMenu "Trennstrich?"
  3681.         Definition
  3682.             AttachTo MENU ," Workbench "
  3683.             Font "personal",8 ; FontName, PointSize
  3684.             Style PLAIN ,2,3
  3685.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  3686.             Text "-------------------------------"
  3687.             MenuFlags NONE 
  3688.             Highlight NONE 
  3689.             ShortCutKey ""
  3690.         EndScript
  3691.     EndObject
  3692.     AKey "F8-nicht_benutzt"
  3693.         Definition
  3694.             QualifiersPressed NONE 
  3695.             KeyPressed F8 
  3696.         EndScript
  3697.         OnDown
  3698.             Do "AusserFunktion"
  3699.         EndScript
  3700.     EndObject
  3701.     AKey "F9-nicht-benutzt"
  3702.         Definition
  3703.             QualifiersPressed NONE 
  3704.             KeyPressed F9 
  3705.         EndScript
  3706.         OnDown
  3707.             Do "AusserFunktion"
  3708.         EndScript
  3709.     EndObject
  3710.     AKey "F10-nicht_benutzt"
  3711.         Definition
  3712.             QualifiersPressed NONE 
  3713.             KeyPressed F10 
  3714.         EndScript
  3715.         OnDown
  3716.             Do "AusserFunktion"
  3717.         EndScript
  3718.     EndObject
  3719.     TextMenu "NoFastMem"
  3720.         Definition
  3721.             AttachTo MENU ," Workbench "
  3722.             Font "personal",8 ; FontName, PointSize
  3723.             Style PLAIN ,2,3
  3724.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3725.             Text "NoFastMem"
  3726.             MenuFlags NONE 
  3727.             Highlight COMPLEMENT 
  3728.             ShortCutKey ""
  3729.         EndScript
  3730.         Occurred
  3731.             Dos "Run >Nil: <Nil: Sys:system/NoFastMem"
  3732.             If error
  3733.                 Do "Fehlerroutine"
  3734.             EndIf
  3735.         EndScript
  3736.     EndObject
  3737.     TextMenu "Rexxmast"
  3738.         Definition
  3739.             AttachTo MENU ," Workbench "
  3740.             Font "personal",8 ; FontName, PointSize
  3741.             Style PLAIN ,2,3
  3742.             TextColors 3,2,JAM2  ; PenA, PenB, DrawMode
  3743.             Text "Rexxmast"
  3744.             MenuFlags NONE 
  3745.             Highlight COMPLEMENT 
  3746.             ShortCutKey ""
  3747.         EndScript
  3748.         Occurred
  3749.             Dos "Run >Nil: <Nil: Sys:system/Rexxmast"
  3750.             If error
  3751.                 Do "Fehlerroutine"
  3752.             EndIf
  3753.         EndScript
  3754.     EndObject
  3755.     TextMenu "StatistikDoc"
  3756.         Definition
  3757.             AttachTo MENU ," Statistik "
  3758.             Text "Document..."
  3759.             Font "personal",8 ; FontName, PointSize
  3760.             ShortCutKey "."
  3761.         EndScript
  3762.         Occurred
  3763.             
  3764.             
  3765.             Let DokInfo = "Characters:   """||SizeOfDocument||""""||Char(10)||"Cursor Position: """||TheCharacter||""""||Char(10)||"Cursor at position: """||TheColumnNumber||""""||Char(10)||"Lines:    """||LinesInDocument||""""
  3766.             Let InfoDok=AskForResponse(DokInfo, "Textloader Doc Infos...","Thanks for the news!")
  3767.             
  3768.             
  3769.             
  3770.             
  3771.         EndScript
  3772.     EndObject
  3773.     TextMenu "MenuItem_3"
  3774.         Definition
  3775.             AttachTo MENU ," Statistik "
  3776.             Text "------------------------"
  3777.             Highlight NONE 
  3778.             Font "personal",8 ; FontName, PointSize
  3779.             Style PLAIN ,2,3
  3780.             TextColors 4,2,JAM1  ; PenA, PenB, DrawMode
  3781.         EndScript
  3782.     EndObject
  3783.     TextMenu "Memory"
  3784.         Definition
  3785.             AttachTo MENU ," Statistik "
  3786.             Text "Memory..."
  3787.             Font "personal",8 ; FontName, PointSize
  3788.             ShortCutKey ","
  3789.         EndScript
  3790.         Occurred
  3791.             Let TotalMemory = "Chip RAM:   """||AvailableChipMemory||""""||Char(10)||"Fast RAM:   """||AvailableFastMemory||""""||Char(10)||""||Char(10)||"Total:      """||AvailableMemory||""""
  3792.             Let Memory =AskForResponse(TotalMemory, "Textloader Statistics...","That`s it...")
  3793.             
  3794.             
  3795.             
  3796.             
  3797.             
  3798.             ;Let AutorInfo = "Pascal Gisin"||Char(10)||"Fiechtenweg 11"||Char(10)||"CH-4147 Aesch"||Char(10)||""||Char(10)||"Tel: 079/322'23'53"||Char(10)||"Fax: 079/0'322'23'53"||CHAR(10)||"E-Mail: PGisin@nextron.ch"
  3799.             ;Let Autor=AskForResponse(AutorInfo, "Textloader Info...", "Alles klar!")
  3800.             
  3801.         EndScript
  3802.     EndObject
  3803.     TextMenu "Copy_of_MenuItem_3"
  3804.         Definition
  3805.             AttachTo MENU ," Statistik "
  3806.             Text "------------------------"
  3807.             Highlight NONE 
  3808.             Font "personal",8 ; FontName, PointSize
  3809.             Style PLAIN ,2,3
  3810.             TextColors 4,2,JAM1  ; PenA, PenB, DrawMode
  3811.         EndScript
  3812.     EndObject
  3813.     TextMenu "Copy_7_of_CursorPosition"
  3814.         Definition
  3815.             AttachTo MENU ," Statistik "
  3816.             Text "System Version..."
  3817.             Font "personal",8 ; FontName, PointSize
  3818.             Style PLAIN ,2,3
  3819.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3820.             ShortCutKey "-"
  3821.         EndScript
  3822.         Occurred
  3823.             Let Intui =askForResponse("You are using Workbench-Release:  """||IntuitionVersion||"""","Textloader WB Check...","")
  3824.             
  3825.             
  3826.         EndScript
  3827.     EndObject
  3828.     TextMenu "Farbenwahl"
  3829.         Definition
  3830.             AttachTo MENU ," PrefsTools "
  3831.             Text "Colors..."
  3832.             Font "personal",8 ; FontName, PointSize
  3833.             Style PLAIN ,2,3
  3834.             TextColors 1,2,JAM1  ; PenA, PenB, DrawMode
  3835.         EndScript
  3836.     EndObject
  3837.     TextMenu "Wb"
  3838.         Definition
  3839.             AttachTo OBJECT ,"Farbenwahl"
  3840.             Font "personal",8 ; FontName, PointSize
  3841.             Style PLAIN ,2,3
  3842.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3843.             Text "Wb"
  3844.             MenuFlags CHECKABLE CHECKIT 
  3845.             Highlight COMPLEMENT 
  3846.             ShortCutKey ""
  3847.         EndScript
  3848.         Occurred
  3849.             SetObjectState "Wb",true
  3850.             SetObjectState "WBold",false
  3851.             SetObjectState "Violetexotic",false
  3852.             SetObjectState "blacky",false
  3853.             SetObjectState "banana",false
  3854.             SetObjectState "PescaFruit",false
  3855.             SetObjectState "GreenApple",false
  3856.             SetObjectState "SpacyTint",false
  3857.             SetRGB 0,170,170,170
  3858.             SetRGB 1,0,0,17
  3859.             SetRGB 2,255,255,255
  3860.             SetRGB 3,102,136,187
  3861.         EndScript
  3862.     EndObject
  3863.     TextMenu "WBold"
  3864.         Definition
  3865.             AttachTo OBJECT ,"Farbenwahl"
  3866.             Font "personal",8 ; FontName, PointSize
  3867.             Style PLAIN ,2,3
  3868.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3869.             Text "WBold"
  3870.             MenuFlags CHECKABLE 
  3871.             Highlight COMPLEMENT 
  3872.             ShortCutKey ""
  3873.         EndScript
  3874.         Occurred
  3875.             SetObjectState "Wb",false
  3876.             SetObjectState "WBold",true
  3877.             SetObjectState "Violetexotic",false
  3878.             SetObjectState "blacky",false
  3879.             SetObjectState "banana",false
  3880.             SetObjectState "PescaFruit",false
  3881.             SetObjectState "GreenApple",false
  3882.             SetObjectState "SpacyTint",false
  3883.             SetRGB 0,0,85,170
  3884.             SetRGB 1,255,255,255
  3885.             SetRGB 2,0,0,34
  3886.             SetRGB 3,255,136,0
  3887.         EndScript
  3888.     EndObject
  3889.     TextMenu "Violetexotic"
  3890.         Definition
  3891.             AttachTo OBJECT ,"Farbenwahl"
  3892.             Font "personal",8 ; FontName, PointSize
  3893.             Style PLAIN ,2,3
  3894.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3895.             Text "Violett exotic"
  3896.             MenuFlags CHECKABLE 
  3897.             Highlight COMPLEMENT 
  3898.             ShortCutKey ""
  3899.         EndScript
  3900.         Occurred
  3901.             SetObjectState "Wb",false
  3902.             SetObjectState "WBold",false
  3903.             SetObjectState "Violetexotic",true
  3904.             SetObjectState "blacky",false
  3905.             SetObjectState "banana",false
  3906.             SetObjectState "PescaFruit",false
  3907.             SetObjectState "GreenApple",false
  3908.             SetObjectState "SpacyTint",false
  3909.             SetRGB 0,187,187,187
  3910.             SetRGB 1,0,0,0
  3911.             SetRGB 2,255,255,255
  3912.             SetRGB 3,204,0,153
  3913.         EndScript
  3914.     EndObject
  3915.     TextMenu "blacky"
  3916.         Definition
  3917.             AttachTo OBJECT ,"Farbenwahl"
  3918.             Font "personal",8 ; FontName, PointSize
  3919.             Style PLAIN ,2,3
  3920.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3921.             Text "blacky bounce"
  3922.             MenuFlags CHECKABLE 
  3923.             Highlight COMPLEMENT 
  3924.             ShortCutKey ""
  3925.         EndScript
  3926.         Occurred
  3927.             SetObjectState "Wb",false
  3928.             SetObjectState "WBold",false
  3929.             SetObjectState "Violetexotic",false
  3930.             SetObjectState "blacky",true
  3931.             SetObjectState "banana",false
  3932.             SetObjectState "PescaFruit",false
  3933.             SetObjectState "GreenApple",false
  3934.             SetObjectState "SpacyTint",false
  3935.             SetRGB 0,0,0,0
  3936.             SetRGB 1,255,255,255
  3937.             SetRGB 2,85,170,170
  3938.             SetRGB 3,204,51,85
  3939.         EndScript
  3940.     EndObject
  3941.     TextMenu "Banana"
  3942.         Definition
  3943.             AttachTo OBJECT ,"Farbenwahl"
  3944.             Font "personal",8 ; FontName, PointSize
  3945.             Style PLAIN ,2,3
  3946.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3947.             Text "Banana split"
  3948.             MenuFlags CHECKABLE 
  3949.             Highlight COMPLEMENT 
  3950.             ShortCutKey ""
  3951.         EndScript
  3952.         Occurred
  3953.             SetObjectState "Wb",false
  3954.             SetObjectState "WBold",false
  3955.             SetObjectState "Violetexotic",false
  3956.             SetObjectState "blacky",false
  3957.             SetObjectState "banana",true
  3958.             SetObjectState "PescaFruit",false
  3959.             SetObjectState "GreenApple",false
  3960.             SetObjectState "SpacyTint",false
  3961.             SetRGB 0,170,170,170
  3962.             SetRGB 1,0,0,0
  3963.             SetRGB 2,187,85,17
  3964.             SetRGB 3,221,221,0
  3965.         EndScript
  3966.     EndObject
  3967.     TextMenu "Pescafruit"
  3968.         Definition
  3969.             AttachTo OBJECT ,"Farbenwahl"
  3970.             Font "personal",8 ; FontName, PointSize
  3971.             Style PLAIN ,2,3
  3972.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3973.             Text "Pescafruit"
  3974.             MenuFlags CHECKABLE 
  3975.             Highlight COMPLEMENT 
  3976.             ShortCutKey ""
  3977.         EndScript
  3978.         Occurred
  3979.             SetObjectState "Wb",false
  3980.             SetObjectState "WBold",false
  3981.             SetObjectState "Violetexotic",false
  3982.             SetObjectState "blacky",false
  3983.             SetObjectState "banana",false
  3984.             SetObjectState "PescaFruit",true
  3985.             SetObjectState "GreenApple",false
  3986.             SetObjectState "SpacyTint",false
  3987.             SetRGB 0,170,170,170
  3988.             SetRGB 1,0,0,0
  3989.             SetRGB 2,255,17,68
  3990.             SetRGB 3,238,136,0
  3991.         EndScript
  3992.     EndObject
  3993.     TextMenu "GreenApple"
  3994.         Definition
  3995.             AttachTo OBJECT ,"Farbenwahl"
  3996.             Font "personal",8 ; FontName, PointSize
  3997.             Style PLAIN ,2,3
  3998.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  3999.             Text "GreenApple"
  4000.             MenuFlags CHECKABLE 
  4001.             Highlight COMPLEMENT 
  4002.             ShortCutKey ""
  4003.         EndScript
  4004.         Occurred
  4005.             SetObjectState "Wb",false
  4006.             SetObjectState "WBold",false
  4007.             SetObjectState "Violetexotic",false
  4008.             SetObjectState "blacky",false
  4009.             SetObjectState "banana",false
  4010.             SetObjectState "PescaFruit",false
  4011.             SetObjectState "GreenApple",true
  4012.             SetObjectState "SpacyTint",false
  4013.             SetRGB 0,153,153,153
  4014.             SetRGB 1,0,0,0
  4015.             SetRGB 2,238,170,51
  4016.             SetRGB 3,0,136,0
  4017.         EndScript
  4018.     EndObject
  4019.     TextMenu "Spacytint"
  4020.         Definition
  4021.             AttachTo OBJECT ,"Farbenwahl"
  4022.             Font "personal",8 ; FontName, PointSize
  4023.             Style PLAIN ,2,3
  4024.             TextColors 1,2,JAM2  ; PenA, PenB, DrawMode
  4025.             Text "Spacytint"
  4026.             MenuFlags CHECKABLE 
  4027.             Highlight COMPLEMENT 
  4028.             ShortCutKey ""
  4029.         EndScript
  4030.         Occurred
  4031.             SetObjectState "Wb",false
  4032.             SetObjectState "WBold",false
  4033.             SetObjectState "Violetexotic",false
  4034.             SetObjectState "blacky",false
  4035.             SetObjectState "banana",false
  4036.             SetObjectState "PescaFruit",false
  4037.             SetObjectState "GreenApple",false
  4038.             SetObjectState "SpacyTint",true
  4039.             SetRGB 0,255,255,255
  4040.             SetRGB 1,238,0,187
  4041.             SetRGB 2,0,0,0
  4042.             SetRGB 3,17,204,102
  4043.         EndScript
  4044.     EndObject
  4045.     AKey "OnlineHelp"
  4046.         Definition
  4047.             QualifiersPressed NONE 
  4048.             KeyPressed HELP 
  4049.         EndScript
  4050.         OnDown
  4051.             If EXISTS ("sys:Utilities/Amigaguide")
  4052.                 Dos "Run >Nil: <Nil: Sys:Utilities/Amigaguide Textloader.guide" ; Run the application
  4053.             Else
  4054.                 If EXISTS ("sys:Utilities/Multiview")
  4055.                     Dos "Run >Nil: <Nil: Sys:Utilities/Multiview Textloader.guide" ; Run the Aplic.
  4056.                 Else
  4057.                     If EXISTS ("sys:c/Amigaguide")
  4058.                         Dos "Run >Nil: <Nil: Sys:c/Amigaguide Textloader.guide"
  4059.                     Else
  4060.                         OpenRequester "SimpleReq","Kommentar","","Textloader Meldung...","Leider konnte ich die","Textloader OnlineHelp nicht","starten. Benötige Amigaguide, oder","Multiview für die Ausgabe!"
  4061.                     EndIf
  4062.                 EndIf
  4063.             EndIf
  4064.         EndScript
  4065.     EndObject
  4066.     AKey "Laden Text (KeyInput)"
  4067.         Definition
  4068.             QualifiersPressed NONE 
  4069.             KeyPressed F1 
  4070.         EndScript
  4071.         OnDown
  4072.             SetFileRequestMode REGULARMODE ,REJECTICONS 
  4073.             Let Laden=AskForFilename(NeueDatei,"Load ASCII/FTXT file...","155","39","340","180")
  4074.             Let NeueDatei=Laden
  4075.             If NeueDatei<>NOTHING
  4076.                 If NOT MATCH (FileType(NeueDatei),"Unknown","FTXT")
  4077.                     Do "Beep"
  4078.                     SetWindowTitle "Can`t load: "|||NeueDatei|||" !"
  4079.                 Else
  4080.                     SetWindowTitle "Loading Document..."
  4081.                     LoadDocument NeueDatei,"TheDoc"
  4082.                     IfError
  4083.                     Else
  4084.                         SetWindowTitle "Dateiname"|||NeueDatei
  4085.                     EndIf
  4086.                 EndIf
  4087.             EndIf
  4088.             
  4089.         EndScript
  4090.     EndObject
  4091.     AKey "Speichern (KeyInput)"
  4092.         Definition
  4093.             QualifiersPressed NONE 
  4094.             KeyPressed F2 
  4095.         EndScript
  4096.         OnDown
  4097.             Let Abfrage = AskForResponse("Should the text saved,"||Char(10)||"to the old location? Is this,"||Char(10)||"what you want?","Textloader Information...","OK|Cancel")
  4098.             If Abfrage =1
  4099.                 SaveAllChangedBuffers
  4100.                 If error
  4101.                     Do "FehlerRoutine"
  4102.                     If Abfrage =0
  4103.                     EndIf
  4104.                 EndIf
  4105.             EndIf
  4106.             
  4107.         EndScript
  4108.     EndObject
  4109.     AKey "Speichern als... (KeyInput)"
  4110.         Definition
  4111.             QualifiersPressed NONE 
  4112.             KeyPressed F3 
  4113.         EndScript
  4114.         OnDown
  4115.             SetFileRequestMode SAVEFILEMODE ,NONE 
  4116.             Let SichernAscii=AskForFileName(Antwort,"Save Text as ASCII file..","155","39","340","180")
  4117.             Let Antwort = SichernAscii
  4118.             If Antwort <> ""
  4119.                 Let Dateispeichername = Antwort
  4120.                 SetWindowTitle "Saving ASCII Format!"
  4121.                 SaveDocument "TheDoc",Dateispeichername,ASCII 
  4122.                 IfError
  4123.                     Do "Fehlerroutine"
  4124.                 EndIf
  4125.             EndIf
  4126.             SetWindowTitle "Textloader ©  by P.Gisin"
  4127.             
  4128.         EndScript
  4129.     EndObject
  4130.     AKey "Drucke Document (KeyInput)"
  4131.         Definition
  4132.             QualifiersPressed NONE 
  4133.             KeyPressed F4 
  4134.         EndScript
  4135.         OnDown
  4136.             OpenRequester "SimpleReq","JaNein2","Drucken","Textloader Message...","Do you really want to print","now this Document?",""," "
  4137.             
  4138.         EndScript
  4139.     EndObject
  4140.     AKey "Löschen Text (KeyInput)"
  4141.         Definition
  4142.             QualifiersPressed NONE 
  4143.             KeyPressed F5 
  4144.         EndScript
  4145.         OnDown
  4146.             OpenRequester "SimpleReq","JaNein2","Löschen","Textloader Message...","Do you really want to clear","this text from the editor?","","???"
  4147.             
  4148.         EndScript
  4149.     EndObject
  4150.     AKey "Suchen nach (KeyInput)"
  4151.         Definition
  4152.             QualifiersPressed NONE 
  4153.             KeyPressed F6 
  4154.         EndScript
  4155.         OnDown
  4156.             Do "S"
  4157.         EndScript
  4158.     EndObject
  4159.     AKey "Suchen fortsetzen (KeyInput)"
  4160.         Definition
  4161.             QualifiersPressed NONE 
  4162.             KeyPressed F7 
  4163.         EndScript
  4164.         OnDown
  4165.             Do "SF"
  4166.         EndScript
  4167.     EndObject
  4168.     IntervalTimer "TitelUhr"
  4169.         Definition
  4170.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  4171.         EndScript
  4172.         Occurred
  4173.             If windowWidth > 272
  4174.                 Do "TitelUhr"
  4175.             EndIf
  4176.             
  4177.         EndScript
  4178.     EndObject
  4179.     Memo "D2"
  4180.         Definition
  4181.             MemoDocument "D2" ; where the text comes from
  4182.             ScrollBars RIGHT 
  4183.             Origin 2000,170
  4184.             Size 50,40
  4185.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  4186.         EndScript
  4187.     EndObject
  4188.     IntegerField "Home"
  4189.         Definition
  4190.             Limits 0,999999999
  4191.             InitialInteger 0
  4192.             Origin 2000,0
  4193.             Size 77,20
  4194.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  4195.             Justification CENTER 
  4196.             MaxFieldLength 256
  4197.         EndScript
  4198.     EndObject
  4199.     AKey "KeyInput_1"
  4200.         Definition
  4201.             QualifiersPressed NONE 
  4202.             KeyPressed DOWN 
  4203.         EndScript
  4204.         OnDown
  4205.             Do "eo"
  4206.             Do "cdown"
  4207.             
  4208.         EndScript
  4209.     EndObject
  4210.     AKey "KeyInput_2"
  4211.         Definition
  4212.             QualifiersPressed NONE 
  4213.             KeyPressed DELETE 
  4214.         EndScript
  4215.         OnDown
  4216.             Do "undos"
  4217.             If objectstate ("AM") =true
  4218.                 Clear DOCUMENT 
  4219.             ElseIf objectstate ("AM2") =true
  4220.                 SetObjectState "dokument",on
  4221.                 If IntegerFrom("home")>0
  4222.                     Do "CutTM"
  4223.                 Else
  4224.                     WorkWithDocument "dokument"
  4225.                     Delete CHARACTER 
  4226.                 EndIf
  4227.             ElseIf objectstate ("AM3") =true
  4228.                 SetObjectState "dokument",on
  4229.                 If IntegerFrom("home")>0
  4230.                     Do "CutTM"
  4231.                 Else
  4232.                     WorkWithDocument "dokument"
  4233.                     Delete CHARACTER 
  4234.                 EndIf
  4235.             Else
  4236.                 Delete CHARACTER 
  4237.             EndIf
  4238.             SetObjectState "AM3",false
  4239.             SetObjectState "AM2",false
  4240.             SetObjectState "AM",false
  4241.             
  4242.         EndScript
  4243.     EndObject
  4244.     AKey "KeyInput_3"
  4245.         Definition
  4246.             QualifiersPressed NONE 
  4247.             KeyPressed UP 
  4248.         EndScript
  4249.         OnDown
  4250.             Do "eo"
  4251.             Do "cup"
  4252.             
  4253.         EndScript
  4254.     EndObject
  4255.     TextMenu "Unmark"
  4256.         Definition
  4257.             AttachTo MENU ," Text"
  4258.             Text "UnMark text..."
  4259.             Font "topaz",8 ; FontName, PointSize
  4260.             ShortCutKey "n"
  4261.         EndScript
  4262.         Occurred
  4263.             SetInteger "home",0
  4264.             MakeDocument "d2"
  4265.             WorkWithDocument "d2"
  4266.             Clear DOCUMENT 
  4267.             MoveCursorTo STARTOF DOCUMENT 
  4268.             SetInteger "home",0
  4269.             SetLineAttribute COLOR ,1,100000
  4270.             WorkWithDocument "TheDoc"
  4271.             Let cd=thelinenumber
  4272.             MoveCursorTo STARTOF DOCUMENT 
  4273.             SetInteger "home",0
  4274.             SetLineAttribute COLOR ,1,100000
  4275.             MoveCursor DOWN ,cd
  4276.             MoveCursor UP 
  4277.             SetObjectState "AM2",false
  4278.             SetObjectState "AM",false
  4279.             
  4280.             ;Code by J.Grus 1998
  4281.         EndScript
  4282.     EndObject
  4283.     TextMenu "Copy"
  4284.         Definition
  4285.             AttachTo MENU ," Text"
  4286.             Text "Copy text..."
  4287.             Font "topaz",8 ; FontName, PointSize
  4288.             ShortCutKey "c"
  4289.         EndScript
  4290.         Occurred
  4291.             Do "copy"
  4292.             SetObjectState "AM2",false
  4293.             SetObjectState "AM",false
  4294.         EndScript
  4295.     EndObject
  4296.     TextMenu "Paste"
  4297.         Definition
  4298.             AttachTo MENU ," Text"
  4299.             Text "Paste..."
  4300.             Font "topaz",8 ; FontName, PointSize
  4301.             ShortCutKey "v"
  4302.         EndScript
  4303.         Occurred
  4304.             Let c=theColumnNumber
  4305.             Do "undos"
  4306.             WorkWithDocument "TheDoc"
  4307.             SetObjectState "dokument",on
  4308.             Do "paste"
  4309.             SetObjectState "AM",false
  4310.             SetObjectState "AM2",false
  4311.             
  4312.         EndScript
  4313.     EndObject
  4314.     TextMenu "cut"
  4315.         Definition
  4316.             AttachTo MENU ," Text"
  4317.             Text "Cut Text..."
  4318.             Font "topaz",8 ; FontName, PointSize
  4319.             ShortCutKey "x"
  4320.         EndScript
  4321.         Occurred
  4322.             Let c=theColumnNumber
  4323.             Do "undos"
  4324.             If objectstate ("AM2") =true
  4325.                 WorkWithDocument "TheDoc"
  4326.                 SetObjectState "dokument",on
  4327.                 Do "cut2"
  4328.             ElseIf objectstate ("AM") =true
  4329.                 Clear DOCUMENT 
  4330.             Else
  4331.                 Delete CHARACTER 
  4332.             EndIf
  4333.             SetObjectState "AM",false
  4334.             SetObjectState "AM2",false
  4335.             
  4336.             ;Code by J.Grus 1998
  4337.             
  4338.         EndScript
  4339.     EndObject
  4340.     ImageMenu "MenuItem_5"
  4341.         Definition
  4342.             AttachTo MENU ," Text"
  4343.             BarImage
  4344.         EndScript
  4345.     EndObject
  4346.     TextMenu "Block OP`s"
  4347.         Definition
  4348.             AttachTo MENU ," Text"
  4349.             Text " Block ->"
  4350.             Font "topaz",8 ; FontName, PointSize
  4351.         EndScript
  4352.     EndObject
  4353.     TextMenu "Spezial"
  4354.         Definition
  4355.             AttachTo MENU ," Text"
  4356.             Text " Textfunktions ->"
  4357.             Font "topaz",8 ; FontName, PointSize
  4358.         EndScript
  4359.     EndObject
  4360.     TextMenu "Datum einfügen"
  4361.         Definition
  4362.             AttachTo OBJECT ,"Spezial"
  4363.             Text "Insert Date..."
  4364.             Font "topaz",8 ; FontName, PointSize
  4365.         EndScript
  4366.         Occurred
  4367.             Let c=theColumnNumber
  4368.             Do "undos"
  4369.             WorkWithDocument "D3"
  4370.             Clear DOCUMENT 
  4371.             Let dd = thedate
  4372.             Type dd
  4373.             MoveCursorTo STARTOF DOCUMENT 
  4374.             MoveCursorTo STARTOF LINE 
  4375.             Let yy = getword (theline,3,"/")
  4376.             Let dd = getword (theline,2,"/")
  4377.             Let mm = getword (theline,1,"/")
  4378.             Let ss = "."
  4379.             If yy < 19
  4380.                 Let y1= "20"
  4381.             Else
  4382.                 Let y1 = "19"
  4383.             EndIf
  4384.             WorkWithDocument "TheDoc"
  4385.             Type mm||ss||dd||ss||y1||yy
  4386.             
  4387.             
  4388.             ;Code by J.Grus 1997 - Beispiel für englisches Datumsformat...
  4389.             
  4390.         EndScript
  4391.     EndObject
  4392.     TextMenu "Zeit"
  4393.         Definition
  4394.             AttachTo OBJECT ,"Spezial"
  4395.             Text "Insert Time..."
  4396.             Font "topaz",8 ; FontName, PointSize
  4397.         EndScript
  4398.         Occurred
  4399.             Let c=theColumnNumber
  4400.             Do "undos"
  4401.             WorkWithDocument "TheDoc"
  4402.             Let dd=Thetime
  4403.             Type dd
  4404.             
  4405.         EndScript
  4406.     EndObject
  4407.     ImageMenu "MS_3"
  4408.         Definition
  4409.             AttachTo OBJECT ,"Spezial"
  4410.             BarImage
  4411.         EndScript
  4412.     EndObject
  4413.     TextMenu "Trimmer"
  4414.         Definition
  4415.             AttachTo OBJECT ,"Spezial"
  4416.             Text "Trim Text..."
  4417.             Font "topaz",8 ; FontName, PointSize
  4418.         EndScript
  4419.         Occurred
  4420.             Let c=theColumnNumber
  4421.             Do "undos"
  4422.             Do "marke2"
  4423.             SetObjectState "AMarke2",false
  4424.             Do "empd2"
  4425.             WorkWithDocument "d2"
  4426.             Clear DOCUMENT 
  4427.             WorkWithDocument "TheDoc"
  4428.             Let ln=thelinenumber
  4429.             MoveCursorTo STARTOF DOCUMENT 
  4430.             Let L=linesindocument
  4431.             Let TXL=thelinenumber
  4432.             Loop
  4433.                 Let abc=theline
  4434.                 Let lj=trimstring (abc)
  4435.                 Delete LINE 
  4436.                 Type lj,NEWLINE 
  4437.                 IfError
  4438.                 EndIf
  4439.                 MoveCursor DOWN 
  4440.                 IfError
  4441.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  4442.                     ExitScript
  4443.                 EndIf
  4444.                 Let TXL=TXL+1
  4445.                 If TXL > L
  4446.                     ExitLoop
  4447.                 EndIf
  4448.             EndLoop
  4449.             MoveCursorTo STARTOF DOCUMENT 
  4450.             PositionOnLine L
  4451.             Let L=linesindocument*2
  4452.             MoveCursor DOWN 
  4453.             Loop
  4454.                 Delete LINE 
  4455.                 IfError
  4456.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  4457.                     ExitScript
  4458.                 EndIf
  4459.                 Let TXL=TXL+1
  4460.                 If TXL > L
  4461.                     ExitLoop
  4462.                 EndIf
  4463.             EndLoop
  4464.             MoveCursorTo STARTOF DOCUMENT 
  4465.             
  4466.             
  4467.             ;Code by J.Grus 1998 - Löschen von ungenutzten Spaces & Tabs... (Blocksatz)
  4468.             
  4469.         EndScript
  4470.     EndObject
  4471.     TextMenu "Center"
  4472.         Definition
  4473.             AttachTo OBJECT ,"Spezial"
  4474.             Text "Center Text..."
  4475.             Font "topaz",8 ; FontName, PointSize
  4476.         EndScript
  4477.         Occurred
  4478.             Let c=theColumnNumber
  4479.             Do "undos"
  4480.             WorkWithDocument "TheDoc"
  4481.             MoveCursorTo STARTOF DOCUMENT 
  4482.             MoveCursorTo STARTOF LINE 
  4483.             Let L=linesindocument
  4484.             Let TXL=thelinenumber
  4485.             Loop
  4486.                 Let sa = centerstring (theline,lengthofline+20)
  4487.                 Delete LINE 
  4488.                 Type sa
  4489.                 IfError
  4490.                 EndIf
  4491.                 MoveCursor DOWN 
  4492.                 IfError
  4493.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  4494.                     ExitScript
  4495.                 EndIf
  4496.                 Let TXL=TXL+1
  4497.                 If TXL > L
  4498.                     ExitLoop
  4499.                 EndIf
  4500.             EndLoop
  4501.             MoveCursorTo STARTOF DOCUMENT 
  4502.             
  4503.             ;Code by J.Grus 1997
  4504.             
  4505.         EndScript
  4506.     EndObject
  4507.     TextMenu "LJ"
  4508.         Definition
  4509.             AttachTo OBJECT ,"Spezial"
  4510.             Text "Left..."
  4511.             Font "topaz",8 ; FontName, PointSize
  4512.         EndScript
  4513.         Occurred
  4514.             Let c=theColumnNumber
  4515.             Do "undos"
  4516.             WorkWithDocument "TheDoc"
  4517.             MoveCursorTo STARTOF DOCUMENT 
  4518.             MoveCursorTo STARTOF LINE 
  4519.             Let L=linesindocument
  4520.             Let TXL=thelinenumber
  4521.             Loop
  4522.                 Let sa = leftjustify (theline,lengthofline)
  4523.                 Delete LINE 
  4524.                 Type sa
  4525.                 IfError
  4526.                 EndIf
  4527.                 MoveCursor DOWN 
  4528.                 IfError
  4529.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  4530.                     ExitScript
  4531.                 EndIf
  4532.                 Let TXL=TXL+1
  4533.                 If TXL > L
  4534.                     ExitLoop
  4535.                 EndIf
  4536.             EndLoop
  4537.             MoveCursorTo STARTOF DOCUMENT 
  4538.             
  4539.             ;Code by J.Grus 1997
  4540.             
  4541.         EndScript
  4542.     EndObject
  4543.     TextMenu "AMarke2"
  4544.         Definition
  4545.             AttachTo MENU ," Text"
  4546.             Text "Show Endmarks..."
  4547.             Font "topaz",8 ; FontName, PointSize
  4548.             MenuFlags CHECKABLE 
  4549.         EndScript
  4550.         Occurred
  4551.             Let ln=thelinenumber
  4552.             Do "Marke"
  4553.             PositionOnLine ln
  4554.         EndScript
  4555.     EndObject
  4556.     ImageMenu "MenuItem_6"
  4557.         Definition
  4558.             AttachTo MENU ," Text"
  4559.             BarImage
  4560.         EndScript
  4561.     EndObject
  4562.     TextMenu "undo"
  4563.         Definition
  4564.             AttachTo MENU ," Text"
  4565.             Text "Undo"
  4566.             Font "topaz",8 ; FontName, PointSize
  4567.             ShortCutKey "u"
  4568.         EndScript
  4569.         Occurred
  4570.             Let ln=thelinenumber
  4571.             WorkWithDocument "TheDoc"
  4572.             Clear DOCUMENT 
  4573.             InsertDocument "Goil"
  4574.             IfError
  4575.             EndIf
  4576.             SetObjectState "Dokument",on
  4577.             PositionOnLine ln
  4578.             Do "CurPlace"
  4579.             
  4580.         EndScript
  4581.     EndObject
  4582.     TextMenu "BMark"
  4583.         Definition
  4584.             AttachTo OBJECT ,"Block OP`s"
  4585.             Text "mark..."
  4586.             Font "topaz",8 ; FontName, PointSize
  4587.         EndScript
  4588.         Occurred
  4589.             SetObjectState "AM3",true
  4590.             Let ln=thelinenumber
  4591.             Do "marke2"
  4592.             SetObjectState "AMarke2",false
  4593.             Do "empd2"
  4594.             WorkWithDocument "d2"
  4595.             Clear DOCUMENT 
  4596.             WorkWithDocument "TheDoc"
  4597.             PositionOnLine ln
  4598.             MoveCursorTo STARTOF LINE 
  4599.             Let d=0
  4600.             Let m=1
  4601.             Let n=1
  4602.             SetInteger "home",thelinenumber
  4603.             Let bs=TheLineNumber
  4604.             Let cl=TheLineNumber
  4605.             UseColoredLines true
  4606.             SetLineAttribute COLOR ,4,1
  4607.             Do "report"
  4608.             Loop
  4609.                 MoveCursor DOWN 
  4610.                 SetLineAttribute COLOR ,4,1
  4611.                 Do "report"
  4612.                 If theline =""
  4613.                     ExitScript
  4614.                 EndIf
  4615.             EndLoop
  4616.             Let ol=IntegerFrom("home");oldline
  4617.             
  4618.             
  4619.             
  4620.             ;Code by J.Grus 1998 - Textblock markieren...
  4621.         EndScript
  4622.     EndObject
  4623.     TextMenu "BCopy"
  4624.         Definition
  4625.             AttachTo OBJECT ,"Block OP`s"
  4626.             Text "copy..."
  4627.             Font "topaz",8 ; FontName, PointSize
  4628.         EndScript
  4629.         Occurred
  4630.             Do "copy"
  4631.             SetObjectState "AM3",false
  4632.         EndScript
  4633.     EndObject
  4634.     TextMenu "BPaste"
  4635.         Definition
  4636.             AttachTo OBJECT ,"Block OP`s"
  4637.             Text "paste..."
  4638.             Font "topaz",8 ; FontName, PointSize
  4639.         EndScript
  4640.         Occurred
  4641.             Let c=theColumnNumber
  4642.             Do "undos"
  4643.             WorkWithDocument "TheDoc"
  4644.             SetObjectState "dokument",on
  4645.             Do "paste"
  4646.             SetObjectState "AM3",false
  4647.             
  4648.         EndScript
  4649.     EndObject
  4650.     TextMenu "BCut"
  4651.         Definition
  4652.             AttachTo OBJECT ,"Block OP`s"
  4653.             Text "delete..."
  4654.             Font "topaz",8 ; FontName, PointSize
  4655.         EndScript
  4656.         Occurred
  4657.             Let c=theColumnNumber
  4658.             Do "undos"
  4659.             WorkWithDocument "TheDoc"
  4660.             SetObjectState "dokument",on
  4661.             If objectstate ("AM3") =true
  4662.                 If IntegerFrom("home")>0
  4663.                     Do "CutTM"
  4664.                 Else
  4665.                     WorkWithDocument "dokument"
  4666.                     Delete CHARACTER 
  4667.                 EndIf
  4668.             EndIf
  4669.             SetObjectState "AM2",false
  4670.             SetObjectState "AM",false
  4671.             SetObjectState "AM3",false
  4672.             
  4673.             ;Code by J.Grus - Cut marked textblock...
  4674.             
  4675.         EndScript
  4676.     EndObject
  4677.     Memo "d3"
  4678.         Definition
  4679.             MemoDocument "d3" ; where the text comes from
  4680.             ScrollBars RIGHT 
  4681.             Origin 2000,201
  4682.             Size 100,40
  4683.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  4684.         EndScript
  4685.     EndObject
  4686.     AKey "KeyInput_4"
  4687.         Definition
  4688.             QualifiersPressed NONE 
  4689.             KeyPressed RETURN 
  4690.         EndScript
  4691.         OnDown
  4692.             WorkWithDocument "TheDoc"
  4693.             Let L=linesindocument
  4694.             Let TXL=thelinenumber
  4695.             If Objectstate("AMarke2") =true
  4696.                 Type "¶"
  4697.                 SplitLine
  4698.             Else
  4699.                 SplitLine
  4700.             EndIf
  4701.             
  4702.             ;Code by J.Grus - Example to set the endmark to lines... ©1997
  4703.             
  4704.         EndScript
  4705.     EndObject
  4706.     AreaButton "AM"
  4707.         Definition
  4708.             Origin 2000,164
  4709.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  4710.             Size 21,20
  4711.         EndScript
  4712.     EndObject
  4713.     AreaButton "AM2"
  4714.         Definition
  4715.             Origin 2000,135
  4716.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  4717.             Size 26,17
  4718.         EndScript
  4719.     EndObject
  4720.     AreaButton "am3"
  4721.         Definition
  4722.             Origin 2000,193
  4723.             Border CHECK  ; BorderStyle, MainPen, ExtraPen
  4724.             Size 26,19
  4725.         EndScript
  4726.     EndObject
  4727.     TextMenu "RJ"
  4728.         Definition
  4729.             AttachTo OBJECT ,"Spezial"
  4730.             Text "Right..."
  4731.             Font "topaz",8 ; FontName, PointSize
  4732.         EndScript
  4733.         Occurred
  4734.             Let c=theColumnNumber
  4735.             Do "undos"
  4736.             WorkWithDocument "TheDoc"
  4737.             MoveCursorTo STARTOF DOCUMENT 
  4738.             MoveCursorTo STARTOF LINE 
  4739.             Let L=linesindocument
  4740.             Let TXL=thelinenumber
  4741.             Loop
  4742.                 Let sd="             "||theline
  4743.                 Delete LINE 
  4744.                 MoveCursor UP 
  4745.                 Type sd
  4746.                 IfError
  4747.                 EndIf
  4748.                 MoveCursor DOWN ,2
  4749.                 IfError
  4750.                     Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  4751.                     ExitScript
  4752.                 EndIf
  4753.                 Let TXL=TXL+1
  4754.                 If TXL > L
  4755.                     ExitLoop
  4756.                 EndIf
  4757.             EndLoop
  4758.             MoveCursorTo STARTOF DOCUMENT 
  4759.             
  4760.             ;Code by J.Grus 1997
  4761.             
  4762.         EndScript
  4763.     EndObject
  4764.     TextMenu "Locale"
  4765.         Definition
  4766.             AttachTo MENU ," PrefsTools "
  4767.             Text "Locale"
  4768.             Font "personal",8 ; FontName, PointSize
  4769.         EndScript
  4770.     EndObject
  4771.     TextMenu "MenuSubItem_1"
  4772.         Definition
  4773.             AttachTo OBJECT ,"Locale"
  4774.             Text "Deutsch     "
  4775.             Font "topaz",8 ; FontName, PointSize
  4776.         EndScript
  4777.         Occurred
  4778.             Let DOM="Hauptfenster"
  4779.             GotoCard "Hauptfenster"
  4780.             
  4781.         EndScript
  4782.     EndObject
  4783.     TextMenu "MenuSubItem_2"
  4784.         Definition
  4785.             AttachTo OBJECT ,"Locale"
  4786.             Text "English"
  4787.             Font "personal",8 ; FontName, PointSize
  4788.         EndScript
  4789.         Occurred
  4790.             Let DOM="Hauptfenster_e"
  4791.             GotoCard "Hauptfenster_e"
  4792.             
  4793.         EndScript
  4794.     EndObject
  4795.     TextField "uuu"
  4796.         Definition
  4797.             InitialText ""
  4798.             Origin 2000,2000
  4799.             Size 165,23
  4800.             MaxFieldLength 256
  4801.         EndScript
  4802.     EndObject
  4803.     IntervalTimer "cur"
  4804.         Definition
  4805.             Duration 0,0,1 ; Minutes, Seconds, Jiffies
  4806.         EndScript
  4807.         Occurred
  4808.             SetText "uuu",""
  4809.             WorkWithDocument "TheDoc"
  4810.             Let c=theColumnNumber
  4811.             SetText "uuu",c
  4812.             
  4813.         EndScript
  4814.     EndObject
  4815.     ImageMenu "MS_4"
  4816.         Definition
  4817.             AttachTo OBJECT ,"Spezial"
  4818.             BarImage
  4819.         EndScript
  4820.     EndObject
  4821.     TextMenu "HEXe"
  4822.         Definition
  4823.             AttachTo OBJECT ,"Spezial"
  4824.             Text "Convert to HEX..."
  4825.             Font "topaz",8 ; FontName, PointSize
  4826.         EndScript
  4827.         Occurred
  4828.             Let c=theColumnNumber
  4829.             Do "undos"
  4830.             Do "LHEX2"
  4831.             WorkWithDocument "TheDoc"
  4832.             
  4833.         EndScript
  4834.     EndObject
  4835.     TextMenu "ASCe"
  4836.         Definition
  4837.             AttachTo OBJECT ,"Spezial"
  4838.             Text "Convert to ASCII..."
  4839.             Font "topaz",8 ; FontName, PointSize
  4840.         EndScript
  4841.         Occurred
  4842.             Let c=theColumnNumber
  4843.             Do "undos"
  4844.             Do "LASC"
  4845.             WorkWithDocument "TheDoc"
  4846.             
  4847.         EndScript
  4848.     EndObject
  4849.     ImageMenu "MCSE"
  4850.         Definition
  4851.             AttachTo OBJECT ,"Spezial"
  4852.             BarImage
  4853.         EndScript
  4854.     EndObject
  4855.     TextMenu "Inte"
  4856.         Definition
  4857.             AttachTo OBJECT ,"Spezial"
  4858.             Text "Crypt document..."
  4859.             Font "topaz",8 ; FontName, PointSize
  4860.         EndScript
  4861.         Occurred
  4862.             Let c=theColumnNumber
  4863.             Do "undos"
  4864.             Do "LHEX3"
  4865.             WorkWithDocument "TheDoc"
  4866.             
  4867.         EndScript
  4868.     EndObject
  4869.     TextMenu "Ente"
  4870.         Definition
  4871.             AttachTo OBJECT ,"Spezial"
  4872.             Text "Uncrypt document..."
  4873.             Font "topaz",8 ; FontName, PointSize
  4874.         EndScript
  4875.         Occurred
  4876.             Let c=theColumnNumber
  4877.             Do "undos"
  4878.             Do "LASC2"
  4879.             WorkWithDocument "TheDoc"
  4880.             
  4881.         EndScript
  4882.     EndObject
  4883. * End of Card "Hauptfenster_e"
  4884. *************
  4885.  
  4886. *************
  4887. * Card "Locale"
  4888.     NoAttach
  4889.     Routine "Read_Ascii"
  4890.         WorkWithDocument "Docu2"
  4891.         Clear DOCUMENT 
  4892.         Loop CNT,1,READCNT,16
  4893.             Loop CT,1,16
  4894.                 FileReadChars "WORKFILE",X,1
  4895.                 If ASCII(X)<=32 OR (ASCII(X)>126 AND ASCII(X)<160)
  4896.                     Type Char(46)
  4897.                 Else
  4898.                     Type Char(ASCII(X))
  4899.                 EndIf
  4900.             EndLoop
  4901.             Type "  "||FormatValue(CNT,"000")||"-"||FormatValue(CNT+25,"000"),NEWLINE 
  4902.         EndLoop
  4903.         MoveCursorTo STARTOF DOCUMENT 
  4904.         
  4905.     EndScript
  4906.     Routine "Read_HEX"
  4907.         WorkWithDocument "Docu2"
  4908.         MoveCursorTo STARTOF DOCUMENT 
  4909.         Loop CNT,1,READCNT,16
  4910.             MoveCursorTo STARTOF LINE 
  4911.             FileReadChars "WORKFILE",X,4,HEX 
  4912.             Type X||Char(32)
  4913.             FileReadChars "WORKFILE",X,4,HEX 
  4914.             Type X||Char(32)
  4915.             FileReadChars "WORKFILE",X,4,HEX 
  4916.             Type X||Char(32)
  4917.             FileReadChars "WORKFILE",X,4,HEX 
  4918.             Type X||Char(32)||Char(32)
  4919.             MoveCursor DOWN ,1
  4920.         EndLoop
  4921.         Delete CHARACTER ,-1
  4922.         MoveCursorTo STARTOF DOCUMENT 
  4923.         
  4924.     EndScript
  4925.     Routine "Read_file"
  4926.         Let READFILE=Arg1
  4927.         If READFILE<>""
  4928.             GetFileInfo READFILE,FILECNT
  4929.             If FILECNT>=16
  4930.                 Let READCNT=IfThen(FILECNT<256,FILECNT,256),LINECNT=READCNT%16,READCNT=LINECNT*16
  4931.                 Let THETITLE=READCNT|||"bytes of"|||FileOf(READFILE)|||"("||FILECNT|||"bytes)"
  4932.                 SetFileBufferSize 1
  4933.                 OpenFile READFILE,"WORKFILE",READONLY ,OLDFILE 
  4934.                 Do "Read_ASCII"
  4935.                 Close "WORKFILE"
  4936.                 OpenFile READFILE,"WORKFILE",READONLY ,OLDFILE 
  4937.                 Do "Read_HEX"
  4938.                 Close "WORKFILE"
  4939.             Else
  4940.                 Quit
  4941.             EndIf
  4942.         EndIf
  4943.         
  4944.     EndScript
  4945.     Routine "Load_text"
  4946.         WorkWithDocument "docu2"
  4947.         Clear DOCUMENT 
  4948.         Let ahf = "ENV:SYS/locale.prefs"
  4949.         If exists(ahf)
  4950.             LoadDocument ahf,"docu2"
  4951.         EndIf
  4952.         IfError
  4953.         EndIf
  4954.         Let THEFILE= ahf
  4955.         If FileOf(THEFILE)<>NOTHING
  4956.             Do "Read_FILE",ahf
  4957.             IfError
  4958.             EndIf
  4959.         Else
  4960.             Quit
  4961.         EndIf
  4962.         
  4963.         
  4964.         
  4965.     EndScript
  4966.     BeforeAttachment
  4967.         Do "Load_text"
  4968.     EndScript
  4969.     Window "UserWindow"
  4970.         Definition
  4971.             Origin 9,6
  4972.             Title "Textloader 7.2"
  4973.             Size 1,1
  4974.             WindowFlags ACTIVATE BORDERLESS TOFRONT 
  4975.             VisualEffects NONE ,WAIT 
  4976.         EndScript
  4977.     EndObject
  4978.     Memo "Docu2"
  4979.         Definition
  4980.             MemoDocument "Docu2" ; where the text comes from
  4981.             ScrollBars RIGHT 
  4982.             Origin 2000,2000
  4983.             Size 580,85
  4984.             Border DOUBLEBEVEL  ; BorderStyle, MainPen, ExtraPen
  4985.         EndScript
  4986.     EndObject
  4987.     OneShotTimer "Timer_1"
  4988.         Definition
  4989.             Duration 0,0,1 ; Minutes, Seconds, Jiffies
  4990.         EndScript
  4991.         Occurred
  4992.             If exists(ahf)
  4993.                 WorkWithDocument "docu2"
  4994.                 MoveCursorTo STARTOF DOCUMENT 
  4995.                 SearchFor "deutsch"
  4996.                 If searchfound
  4997.                     Let DOM="Hauptfenster"
  4998.                     GotoCard "Hauptfenster"
  4999.                 EndIf
  5000.             Else
  5001.                 Let DOM="Hauptfenster_e"
  5002.                 GotoCard "Hauptfenster_e"
  5003.             EndIf
  5004.             
  5005.         EndScript
  5006.     EndObject
  5007. * End of Card "Locale"
  5008. *************
  5009.  
  5010. *************
  5011. * Card "Systeminfos..."
  5012.     NoAttach
  5013.     AfterAttachment
  5014.         SetDrawMode JAM1 
  5015.         SetPen 1
  5016.         AreaRectangle 128,25,412,96
  5017.         SetPen 2
  5018.         LoadBrush "CanDo(PascalSAVEDISK)3:Textloader3/Textloader.brush","ClippedBrush"
  5019.         Transparent FALSE
  5020.         ShowBrush "ClippedBrush",181,143
  5021.         Transparent FALSE
  5022.         ShowBrush "ClippedBrush",156,142
  5023.         Do "SysInfoUpdates"
  5024.         SetDrawMode JAM1 
  5025.         SetPen 1
  5026.         DrawRectangle 194,189,257,44
  5027.         SetPen 2
  5028.         DrawLine 450,189,450,232
  5029.         DrawLine 450,232,195,232
  5030.         SetPen 2,1
  5031.         PrintText "Author: Gisin Pascal, Fiechtenweg 11, CH - 4147 Aesch",110,133
  5032.         SetDrawMode JAM1 
  5033.         SetPen 1
  5034.         DrawRectangle 99,129,474,16
  5035.         SetPen 2
  5036.         DrawLine 572,129,572,144
  5037.         DrawLine 99,144,573,144
  5038.         
  5039.         
  5040.     EndScript
  5041.     Window "UserWindow"
  5042.         Definition
  5043.             Origin 0,0
  5044.             Size 640,256
  5045.             Title "System-Infobar des Textloaders"
  5046.             NumberOfColors 4
  5047.             DefaultColors 0,1,0
  5048.             WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  5049.             WindowFlags ACTIVATE TOFRONT 
  5050.             VisualEffects NONE ,WAIT 
  5051.         EndScript
  5052.         OnCloseButton
  5053.             LoadSubDeck "SimpleReq","SimpleReq"
  5054.             OpenRequester "SimpleReq","JaNein","Ende","Textloader Meldung..."," ","Möchten Sie WIRKLICH","jetzt, den Textloader beenden?"," "
  5055.         EndScript
  5056.         OnActivated
  5057.             Nop
  5058.         EndScript
  5059.     EndObject
  5060.     AreaButton "Zurück..."
  5061.         Definition
  5062.             Origin 238,196
  5063.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  5064.             Text "Zum Editorfenster..."
  5065.             Font "topaz",8 ; FontName, PointSize
  5066.             Style PLAIN ,2,3
  5067.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  5068.         EndScript
  5069.         OnRelease
  5070.             GotoCard "Hauptfenster"
  5071.             
  5072.             
  5073.         EndScript
  5074.     EndObject
  5075.     TextButton "Programm beenden"
  5076.         Definition
  5077.             Origin 257,215
  5078.             Font "topaz",8 ; FontName, PointSize
  5079.             Style BOLD SHADOW ,2,3
  5080.             TextColors 1,0,JAM1  ; PenA, PenB, DrawMode
  5081.             Text "Programm beenden"
  5082.             Border EMBOSSED ,2,1 ; BorderStyle, MainPen, ExtraPen
  5083.             Highlight COMPLEMENT 
  5084.             ButtonFlags NONE 
  5085.         EndScript
  5086.         OnRelease
  5087.             Quit
  5088.         EndScript
  5089.     EndObject
  5090.     IntervalTimer "Timer_1"
  5091.         Definition
  5092.             Duration 0,1,0 ; Minutes, Seconds, Jiffies
  5093.         EndScript
  5094.         Occurred
  5095.             Do "SysInfoUpdates"
  5096.         EndScript
  5097.     EndObject
  5098.     IntervalTimer "Timer_2"
  5099.         Definition
  5100.             Duration 0,0,0 ; Minutes, Seconds, Jiffies
  5101.         EndScript
  5102.         Occurred
  5103.             Do "SysInfoUpdates2"
  5104.         EndScript
  5105.     EndObject
  5106.     TextMenu "Infos..."
  5107.         Definition
  5108.             AttachTo MENU ,"Menü"
  5109.             Font "topaz",8 ; FontName, PointSize
  5110.             Style PLAIN ,2,3
  5111.             TextColors 0,1,JAM1  ; PenA, PenB, DrawMode
  5112.             Text "Infos..."
  5113.             MenuFlags NONE 
  5114.             Highlight COMPLEMENT 
  5115.             ShortCutKey ""
  5116.         EndScript
  5117.         Occurred
  5118.             Let Info = AskForResponse("Die empfohlene Konfiguration ist:"||Char(10)||"OS3.1, 2mb-ChipRAM und FastRAM!"||Char(10)||"Programmiert mit CanDo 2.01 und 2.51!"||Char(10)||" "||Char(10)||"    Textloader is a fine Product!","Textloader Infos...","")
  5119.         EndScript
  5120.     EndObject
  5121. * End of Card "Systeminfos..."
  5122. *************
  5123.  
  5124. *************
  5125. * Global routine "AusserFunktion"
  5126.     OpenRequester "SimpleReq","Kommentar","","Textloader Mitteilung","Taste/Option zurzeit keine","Funktion zugeordnet!"
  5127. * End of routine "AusserFunktion"
  5128. *************
  5129.  
  5130. *************
  5131. * Global routine "b4"
  5132.     Let t=thetime
  5133.     Let wrd=1
  5134.     Let asc=true
  5135.     Let snd=false
  5136.     Let sRS=true
  5137.     Let lm=1
  5138.     Let li=79
  5139.     Let chex=true
  5140.     Let scrsiz=0
  5141.     
  5142.     
  5143. * End of routine "b4"
  5144. *************
  5145.  
  5146. *************
  5147. * Global routine "Beep"
  5148.     GetRGB 0,R0,G0,B0
  5149.     GetRGB 3,R3,G3,B3
  5150.     SetRGB 0,R3,G3,B3
  5151.     Delay 0,0,5
  5152.     SetRGB 0,R0,G0,B0
  5153. * End of routine "Beep"
  5154. *************
  5155.  
  5156. *************
  5157. * Global routine "CDown"
  5158.     SetObjectState "dokument",on
  5159.     MoveCursor DOWN 
  5160.     If m=1 & n=1
  5161.         SetLineAttribute COLOR ,4,1
  5162.         Let d=d+1
  5163.         Do "report"
  5164.     EndIf
  5165.     
  5166.     
  5167.     
  5168.     
  5169.     
  5170.     
  5171.     
  5172.     
  5173. * End of routine "CDown"
  5174. *************
  5175.  
  5176. *************
  5177. * Global routine "CDown1"
  5178.     SetObjectState "dokument",on
  5179.     If m=1 & n=1
  5180.         SetLineAttribute COLOR ,4,1
  5181.         Let d=d+1
  5182.         Do "report"
  5183.     EndIf
  5184.     
  5185.     
  5186.     
  5187.     
  5188.     
  5189.     
  5190.     
  5191.     
  5192. * End of routine "CDown1"
  5193. *************
  5194.  
  5195. *************
  5196. * Global routine "Copy"
  5197.     Let d=0
  5198.     Do "refresh2"
  5199.     RefreshObject "dokument"
  5200.     
  5201.     
  5202. * End of routine "Copy"
  5203. *************
  5204.  
  5205. *************
  5206. * Global routine "CopyTM"
  5207.     If m=1 & n=1
  5208.         MakeDocument "d2"
  5209.         WorkWithDocument "TheDoc"
  5210.         Let ds=TheLineNumber
  5211.         Let cm=thecolumnnumber
  5212.         Let z=ds-bs
  5213.         SetObjectState "Dokument",on
  5214.         MoveCursor UP ,z||""
  5215.         While z>-2
  5216.             SetLineAttribute COLOR ,2,1
  5217.             Let d=d+1
  5218.             Do "report"
  5219.             MoveCursor DOWN 
  5220.             Let z=z-1
  5221.         EndLoop
  5222.         Do "cup"
  5223.         Do "Copy"
  5224.         Do "OnEd"
  5225.     Else
  5226.         SetPointer
  5227.         Do "edon"
  5228.     EndIf
  5229.     Let mark=false
  5230.     Let nark=false
  5231.     
  5232.     
  5233.     
  5234.     
  5235. * End of routine "CopyTM"
  5236. *************
  5237.  
  5238. *************
  5239. * Global routine "CUP"
  5240.     If m=1 and n=1
  5241.         SetLineAttribute COLOR ,1,1
  5242.         Let d=d-1
  5243.         WorkWithDocument "d2"
  5244.         MoveCursor UP 
  5245.         Delete LINE 
  5246.         WorkWithDocument "TheDoc"
  5247.     EndIf
  5248.     MoveCursor UP 
  5249.     
  5250.     
  5251.     
  5252. * End of routine "CUP"
  5253. *************
  5254.  
  5255. *************
  5256. * Global routine "CurPlace"
  5257.     WorkWithDocument "TheDoc"
  5258.     SetText "uuu",c
  5259.     Let d=textfrom("uuu")-1
  5260.     MoveCursor RIGHT ,d
  5261.     IfError
  5262.     EndIf
  5263.     
  5264. * End of routine "CurPlace"
  5265. *************
  5266.  
  5267. *************
  5268. * Global routine "Cut2"
  5269.     MoveCursor UP ,d
  5270.     Delete LINE ,d
  5271.     Let d=0
  5272.     Do "refresh2"
  5273.     RefreshObject "Dokument"
  5274.     Let dl=true
  5275.     SetPointer
  5276.     
  5277.     
  5278.     
  5279.     
  5280.     
  5281.     
  5282. * End of routine "Cut2"
  5283. *************
  5284.  
  5285. *************
  5286. * Global routine "CutTM"
  5287.     Let d=0
  5288.     If m=1 & n=1
  5289.         MakeDocument "d2"
  5290.         WorkWithDocument "TheDoc"
  5291.         Let ds=TheLineNumber
  5292.         Let cm=thecolumnnumber
  5293.         Let z=ds-bs
  5294.         SetObjectState "dokument",on
  5295.         MoveCursor UP ,z||""
  5296.         While z>-1
  5297.             Let d=d+1
  5298.             Do "report"
  5299.             MoveCursor DOWN 
  5300.             Let z=z-1
  5301.         EndLoop
  5302.         Do "Cut2"
  5303.         Do "OnEd"
  5304.     EndIf
  5305.     Let m=0
  5306.     Let n=0
  5307.     
  5308.     
  5309.     
  5310.     
  5311.     
  5312.     
  5313.     
  5314.     
  5315. * End of routine "CutTM"
  5316. *************
  5317.  
  5318. *************
  5319. * Global routine "Drucken"
  5320.     If Arg1 = FALSE
  5321.     Else
  5322.         Let hf="Hauptfenster"
  5323.         If cardname = hf
  5324.             SetWindowTitle "Drucke Dokument..."
  5325.         Else
  5326.             SetWindowTitle "Printing Document..."
  5327.         EndIf
  5328.         SaveDocument "TheDoc","PRT:"
  5329.         IfError
  5330.             Do "FehlerRoutine"
  5331.         EndIf
  5332.     EndIf
  5333. * End of routine "Drucken"
  5334. *************
  5335.  
  5336. *************
  5337. * Global routine "EdOn"
  5338.     SetObjectState "Dokument",on
  5339.     SetPointer
  5340.     
  5341.     
  5342.     
  5343. * End of routine "EdOn"
  5344. *************
  5345.  
  5346. *************
  5347. * Global routine "Einfügen"
  5348.     Let hf="Hauptfenster"
  5349.     If cardname = hf
  5350.         OpenRequester "DateiReq","Card_1","EinfügenDATA","Wähle einen Text zum einfügen..."
  5351.     Else
  5352.         OpenRequester "DateiReq","Card_1","EinfügenDATA","Choose text for insert..."
  5353.     EndIf
  5354.     IfError
  5355.         Do "Fehlerroutine"
  5356.     EndIf
  5357. * End of routine "Einfügen"
  5358. *************
  5359.  
  5360. *************
  5361. * Global routine "EinfügenDATA"
  5362.     Let Newfile = Arg1
  5363.     If newfile<>nothing
  5364.         If Not Match(FileType(newfile),"Unknown","FTXT")
  5365.             Let hf="Hauptfenster"
  5366.             If cardname = hf
  5367.                 SetWindowTitle "Kann File nicht Laden """||newfile||""""
  5368.             Else
  5369.                 SetWindowTitle "Can`t load file: """||newfile||""""
  5370.             EndIf
  5371.         Else
  5372.             Let hf="Hauptfenster"
  5373.             If cardname = hf
  5374.                 SetWindowTitle "Lade einzufügender Text....."
  5375.             Else
  5376.                 SetWindowTitle "Inserting text....."
  5377.             EndIf
  5378.             InsertDocument newfile,"TheDoc"
  5379.             IfError
  5380.                 Do "Fehlerroutine"
  5381.             Else
  5382.                 Let FileToGet=newfile
  5383.                 SetWindowTitle "FileName :"""||FileToGet||""""
  5384.             EndIf
  5385.         EndIf
  5386.     EndIf
  5387. * End of routine "EinfügenDATA"
  5388. *************
  5389.  
  5390. *************
  5391. * Global routine "empd2"
  5392.     SetInteger "home",0
  5393.     MakeDocument "d2"
  5394.     WorkWithDocument "d2"
  5395.     Clear DOCUMENT 
  5396.     MoveCursorTo STARTOF DOCUMENT 
  5397.     SetInteger "home",0
  5398.     SetLineAttribute COLOR ,1,100000
  5399.     WorkWithDocument "TheDoc"
  5400.     Let cd=thelinenumber
  5401.     MoveCursorTo STARTOF DOCUMENT 
  5402.     SetInteger "home",0
  5403.     SetLineAttribute COLOR ,1,100000
  5404.     MoveCursor DOWN ,cd
  5405.     MoveCursor UP 
  5406.     
  5407.     ;Code by J.Grus to clear the highlight mode
  5408. * End of routine "empd2"
  5409. *************
  5410.  
  5411. *************
  5412. * Global routine "Ende"
  5413.     If Arg1 = FALSE
  5414.         Quit
  5415.     Else
  5416.         Do "SichernVorBeenden"
  5417.         IfError
  5418.             Do "Fehlerroutine"
  5419.         EndIf
  5420.     EndIf
  5421. * End of routine "Ende"
  5422. *************
  5423.  
  5424. *************
  5425. * Global routine "Ende2"
  5426.     If Arg1 = FALSE
  5427.     Else
  5428.         Flush "Document_1"
  5429.         Quit
  5430.     EndIf
  5431. * End of routine "Ende2"
  5432. *************
  5433.  
  5434. *************
  5435. * Global routine "EndeCloseknopf"
  5436.     If Arg1 = FALSE
  5437.     Else
  5438.         Quit
  5439.         IfError
  5440.             Do "Fehlerroutine"
  5441.         EndIf
  5442.     EndIf
  5443. * End of routine "EndeCloseknopf"
  5444. *************
  5445.  
  5446. *************
  5447. * Global routine "EO"
  5448.     SetObjectState "dokument",on
  5449. * End of routine "EO"
  5450. *************
  5451.  
  5452. *************
  5453. * Global routine "FehlerRoutine"
  5454.     ; $VER: Textloader-Editor 7.x (20.07.1998) Pascal Gisin, Fiechtenweg 11, CH - 4147 Aesch
  5455.     Nop ;
  5456.     Nop ; ErrorCodes und Weiterentwicklung Pascal Gisin 1997-98 V7.0
  5457.     Do "Beep"
  5458.     If ErrorCode = "1"
  5459.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannten Puffer nicht gefunden"
  5460.     ElseIf ErrorCode = "2"
  5461.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannte Routine nicht gefunden"
  5462.     ElseIf ErrorCode = "3"
  5463.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genannter Puffer nicht vom","erforderlichen Typ"
  5464.     ElseIf ErrorCode = "4"
  5465.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Fenster geöffnet"
  5466.     ElseIf ErrorCode = "6"
  5467.         OpenRequester "SimpleReq","Kommentar","","Meldung","Card nicht gefunden"
  5468.     ElseIf ErrorCode = "8"
  5469.         OpenRequester "SimpleReq","Kommentar","","Meldung","Stack überlaufen"
  5470.     ElseIf ErrorCode = "9"
  5471.         OpenRequester "SimpleReq","Kommentar","","Meldung","Name wertet einen NULL String aus"
  5472.     ElseIf ErrorCode = "10"
  5473.         OpenRequester "SimpleReq","Kommentar","","Meldung","Brush wurde nicht mit Maske","gespeichert"
  5474.     ElseIf ErrorCode = "11"
  5475.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele IFs"
  5476.     ElseIf ErrorCode = "12"
  5477.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht akzeptiertes Else,ElseIf..."
  5478.     ElseIf ErrorCode = "13"
  5479.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine ARexx Nachricht anhängig","oder RESULTS Flage nicht gesetzt"
  5480.     ElseIf ErrorCode = "14"
  5481.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falsches ExitLoop,Endloop, until"
  5482.     ElseIf ErrorCode = "15"
  5483.         OpenRequester "SimpleReq","Kommentar","","Meldung","Es wird ein EndLoop erwartet"
  5484.     ElseIf ErrorCode = "16"
  5485.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht gefunden"
  5486.     ElseIf ErrorCode = "17"
  5487.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht vom","erforderlichen","Typ"
  5488.     ElseIf ErrorCode = "18"
  5489.         OpenRequester "SimpleReq","Kommentar","","Meldung","Befehl im aktuellen Modus","nicht verfügbar"
  5490.     ElseIf ErrorCode = "19"
  5491.         OpenRequester "SimpleReq","Kommentar","","Meldung","Genanntes Objekt nicht zugeteilt"
  5492.     ElseIf ErrorCode = "20"
  5493.         OpenRequester "SimpleReq","Kommentar","","Meldung","Inkompatible tokenized Version"
  5494.     ElseIf ErrorCode = "22"
  5495.         OpenRequester "SimpleReq","Kommentar","","Meldung","Puffer ist im Gebrauch"
  5496.     ElseIf ErrorCode = "23"
  5497.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Dokument gewählt"
  5498.     ElseIf ErrorCode = "25"
  5499.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Daten"
  5500.     ElseIf ErrorCode = "30"
  5501.         OpenRequester "SimpleReq","Kommentar","","Meldung","If benoetigt auch ein EndIf"
  5502.     ElseIf ErrorCode = "31"
  5503.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele Loops"
  5504.     ElseIf ErrorCode = "32"
  5505.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dokumenten Zeile zu lang"
  5506.     ElseIf ErrorCode = "33"
  5507.         OpenRequester "SimpleReq","Kommentar","","Meldung","Externe STOP Nachricht erhalten"
  5508.     ElseIf ErrorCode = "34"
  5509.         OpenRequester "SimpleReq","Kommentar","","Meldung","Name vom Objekt ist bereits aktiviert"
  5510.     ElseIf ErrorCode = "35"
  5511.         OpenRequester "SimpleReq","Kommentar","","Meldung","Audiosystem verursachte einen Fehler"
  5512.     ElseIf ErrorCode = "36"
  5513.         OpenRequester "SimpleReq","Kommentar","","Meldung","Amigaguide.library nicht gefunden!"
  5514.     ElseIf ErrorCode = "37"
  5515.         OpenRequester "SimpleReq","Kommentar","","Meldung","InovaMusic.library nicht gefunden!"
  5516.     ElseIf ErrorCode = "38"
  5517.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler im entpacken"
  5518.     ElseIf ErrorCode = "39"
  5519.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim Laden von einem Musikfile"
  5520.     ElseIf ErrorCode = "40"
  5521.         OpenRequester "SimpleReq","Kommentar","","Meldung","Das Printer.device macht Probleme"
  5522.     ElseIf ErrorCode = "41"
  5523.         OpenRequester "SimpleReq","Kommentar","","Meldung","Druckvorgang wurde durch den","benutzer Abgebrochen!"
  5524.     ElseIf ErrorCode = "42"
  5525.         OpenRequester "SimpleReq","Kommentar","","Meldung","Printer Unterstuetzt keine Grafiken"
  5526.     ElseIf ErrorCode = "44"
  5527.         OpenRequester "SimpleReq","Kommentar","","Meldung","Die Dimensionen sind falsch"
  5528.     ElseIf ErrorCode = "45"
  5529.         OpenRequester "SimpleReq","Kommentar","","Meldung","Candogfx.library nicht zu oeffnen"
  5530.     ElseIf ErrorCode = "46"
  5531.         OpenRequester "SimpleReq","Kommentar","","Meldung","Interner Fehler beim printer.device"
  5532.     ElseIf ErrorCode = "47"
  5533.         OpenRequester "SimpleReq","Kommentar","","Meldung","Druckerspeicher Fehler"
  5534.     ElseIf ErrorCode = "50"
  5535.         OpenRequester "SimpleReq","Kommentar","","Meldung","Lowlevel.library nicht zu oeffnen"
  5536.     ElseIf ErrorCode = "51"
  5537.         OpenRequester "SimpleReq","Kommentar","","Meldung","Interner Fehler"
  5538.     ElseIf ErrorCode = "52"
  5539.         OpenRequester "SimpleReq","Kommentar","","Meldung","Deplazierter Operator"
  5540.     ElseIf ErrorCode = "53"
  5541.         OpenRequester "SimpleReq","Kommentar","","Meldung","Division durch NULL"
  5542.     ElseIf ErrorCode = "54"
  5543.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unpassende Klammern"
  5544.     ElseIf ErrorCode = "55"
  5545.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ausdruck ist zu kompliziert"
  5546.     ElseIf ErrorCode = "56"
  5547.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Ausdruck"
  5548.     ElseIf ErrorCode = "57"
  5549.         OpenRequester "SimpleReq","Kommentar","","Meldung","Operation mit verschiedenen","Datentypen"
  5550.     ElseIf ErrorCode = "58"
  5551.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Operation für","Datentyp"
  5552.     ElseIf ErrorCode = "59"
  5553.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Datentyp"
  5554.     ElseIf ErrorCode = "60"
  5555.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Variablen Bezeichnung"
  5556.     ElseIf ErrorCode = "61"
  5557.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige String Konstante"
  5558.     ElseIf ErrorCode = "62"
  5559.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falsche Variable"
  5560.     ElseIf ErrorCode = "65"
  5561.         OpenRequester "SimpleReq","Kommentar","","Meldung","Not rawkey event"
  5562.     ElseIf ErrorCode = "66"
  5563.         OpenRequester "SimpleReq","Kommentar","","Meldung","Bildschirm nicht gefunden"
  5564.     ElseIf ErrorCode = "67"
  5565.         OpenRequester "SimpleReq","Kommentar","","Meldung","Screenpens koennen nicht gelesen werden"
  5566.     ElseIf ErrorCode = "69"
  5567.         OpenRequester "SimpleReq","Kommentar","","Meldung","Doppelklick nicht aktiv"
  5568.     ElseIf ErrorCode = "75"
  5569.         OpenRequester "SimpleReq","Kommentar","","Meldung","Konflikt mit Schluesselword"
  5570.     ElseIf ErrorCode = "76"
  5571.         OpenRequester "SimpleReq","Kommentar","","Meldung","Undefinierbares Schluesselword"
  5572.     ElseIf ErrorCode = "78"
  5573.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter Befehl"
  5574.     ElseIf ErrorCode = "79"
  5575.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zuviele Parameter"
  5576.     ElseIf ErrorCode = "80"
  5577.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu wenig Parameter"
  5578.     ElseIf ErrorCode = "81"
  5579.         OpenRequester "SimpleReq","Kommentar","","Meldung","Font nicht verfügbar"
  5580.     ElseIf ErrorCode = "82"
  5581.         OpenRequester "SimpleReq","Kommentar","","Meldung","Syntax Fehler"
  5582.     ElseIf ErrorCode = "83"
  5583.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verfrühtes EOF"
  5584.     ElseIf ErrorCode = "84"
  5585.         OpenRequester "SimpleReq","Kommentar","","Meldung","Port des Empfängers nicht","gefunden"
  5586.     ElseIf ErrorCode = "85"
  5587.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter IFF FORM Typ"
  5588.     ElseIf ErrorCode = "86"
  5589.         OpenRequester "SimpleReq","Kommentar","","Meldung","Device oeffnen Fehler"
  5590.     ElseIf ErrorCode = "89"
  5591.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Bildschirms"
  5592.     ElseIf ErrorCode = "90"
  5593.         OpenRequester "SimpleReq","Kommentar","","Meldung","Fehler beim öffnen des","Fensters"
  5594.     ElseIf ErrorCode = "91"
  5595.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiges Muster (Pattern)"
  5596.     ElseIf ErrorCode = "103"
  5597.         OpenRequester "SimpleReq","Kommentar","","Meldung","Nicht genug Speicher"
  5598.     ElseIf ErrorCode = "115"
  5599.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Zahlenwert"
  5600.     ElseIf ErrorCode = "116"
  5601.         OpenRequester "SimpleReq","Kommentar","","Meldung","Gefordertes Argument fehlt"
  5602.     ElseIf ErrorCode = "117"
  5603.         OpenRequester "SimpleReq","Kommentar","","Meldung","Argument nach Schlüsselwort","fehlt!"
  5604.     ElseIf ErrorCode = "118"
  5605.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falsche Anzahl an Argumenten"
  5606.     ElseIf ErrorCode = "119"
  5607.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungerade Anzahl von Anführungs-","zeichen"
  5608.     ElseIf ErrorCode = "120"
  5609.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Argumente"
  5610.     ElseIf ErrorCode = "Doklinks"
  5611.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  5612.     ElseIf ErrorCode = "201"
  5613.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kein Standard Verzeichnis"
  5614.     ElseIf ErrorCode = "202"
  5615.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Gebrauch"
  5616.     ElseIf ErrorCode = "203"
  5617.         OpenRequester "SimpleReq","Kommentar","","Meldung","Obejekt existiert bereits"
  5618.     ElseIf ErrorCode = "204"
  5619.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis nicht gefunden"
  5620.     ElseIf ErrorCode = "205"
  5621.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt nicht gefunden"
  5622.     ElseIf ErrorCode = "206"
  5623.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültige Fensterparameter"
  5624.     ElseIf ErrorCode = "209"
  5625.         OpenRequester "SimpleReq","Kommentar","","Meldung","Unbekannter DOS Packet-","Request-Typ"
  5626.     ElseIf ErrorCode = "210"
  5627.         OpenRequester "SimpleReq","Kommentar","","Meldung","Dateiname ist nicht bekannt!","Bitte geben Sie den genauen","Filepfad ein!"
  5628.     ElseIf ErrorCode = "212"
  5629.         OpenRequester "SimpleReq","Kommentar","","Meldung","Falscher Dateityp"
  5630.     ElseIf ErrorCode = "213"
  5631.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist nicht gültig","vielleicht fehlerhaft...","oder anderer Dos Typ!"
  5632.     ElseIf ErrorCode = "214"
  5633.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist schreibgeschützt"
  5634.     ElseIf ErrorCode = "215"
  5635.         OpenRequester "SimpleReq","Kommentar","","Meldung","Umbenennen auf anderen","Datenträger versucht"
  5636.     ElseIf ErrorCode = "216"
  5637.         OpenRequester "SimpleReq","Kommentar","","Meldung","Verzeichnis ist nicht leer"
  5638.     ElseIf ErrorCode = "217"
  5639.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zu tiefe Schachtelung"
  5640.     ElseIf ErrorCode = "218"
  5641.         OpenRequester "SimpleReq","Kommentar","","Meldung","Device nicht angemeldet","(mounted)"
  5642.     ElseIf ErrorCode = "219"
  5643.         OpenRequester "SimpleReq","Kommentar","","Meldung","Suchfehler"
  5644.     ElseIf ErrorCode = "220"
  5645.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kommentar ist zu lang"
  5646.     ElseIf ErrorCode = "221"
  5647.         OpenRequester "SimpleReq","Kommentar","","Meldung","Diskette ist voll"
  5648.     ElseIf ErrorCode = "222"
  5649.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist löschgeschützt"
  5650.     ElseIf ErrorCode = "223"
  5651.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist schreibgeschützt"
  5652.     ElseIf ErrorCode = "224"
  5653.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist lesegeschützt"
  5654.     ElseIf ErrorCode = "225"
  5655.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine DOS Diskette"
  5656.     ElseIf ErrorCode = "226"
  5657.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine Disk eingelegt"
  5658.     ElseIf ErrorCode = "232"
  5659.         OpenRequester "SimpleReq","Kommentar","","Meldung","Keine weiteren Verzeichnis-","einträge"
  5660.     ElseIf ErrorCode = "233"
  5661.         OpenRequester "SimpleReq","Kommentar","","Meldung","Objekt im Verbund"
  5662.     ElseIf ErrorCode = "235"
  5663.         OpenRequester "SimpleReq","Kommentar","","Meldung","Ungültiger Hunk in zu","ladender Datei"
  5664.     ElseIf ErrorCode = "241"
  5665.         OpenRequester "SimpleReq","Kommentar","","Meldung","Kollision bei Datensatz-","sperre"
  5666.     ElseIf ErrorCode = "242"
  5667.         OpenRequester "SimpleReq","Kommentar","","Meldung","Zeitüberschreitung bei","Datensatzsperre"
  5668.     ElseIf ErrorCode = "303"
  5669.         OpenRequester "SimpleReq","Kommentar","","Meldung","Pufferüberlauf"
  5670.     ElseIf ErrorCode = "304"
  5671.         OpenRequester "SimpleReq","Kommentar","","Meldung","Abbruch wurde eingeleitet","mit CTRL-C"
  5672.     ElseIf ErrorCode = "305"
  5673.         OpenRequester "SimpleReq","Kommentar","","Meldung","Datei ist nicht ausführbar"
  5674.     Else
  5675.         OpenRequester "SimpleReq","Kommentar","","Fehlermeldung",ErrorText
  5676.     EndIf
  5677. * End of routine "FehlerRoutine"
  5678. *************
  5679.  
  5680. *************
  5681. * Global routine "LASC"
  5682.     WorkWithDocument "TheDoc"
  5683.     If cardname = hf
  5684.         SetWindowTitle "Bitte warten - Konvertiere Datei!"
  5685.     Else
  5686.         SetWindowTitle "Please wait - Converting file!"
  5687.     EndIf
  5688.     MoveCursorTo STARTOF DOCUMENT 
  5689.     MoveCursorTo STARTOF LINE 
  5690.     Let L=linesindocument
  5691.     Let TXL=thelinenumber
  5692.     Let q2=hextochars("22")
  5693.     Loop
  5694.         MoveCursorTo STARTOF LINE 
  5695.         Let iii = hextochars(theline)
  5696.         IfError
  5697.             StopScript
  5698.         EndIf
  5699.         Type iii,NEWLINE 
  5700.         ;    MoveCursor DOWN
  5701.         Delete LINE 
  5702.         Let TXL=TXL+1
  5703.         If TXL > L
  5704.             ExitLoop
  5705.         EndIf
  5706.     EndLoop
  5707.     Delete CHARACTER ,-1
  5708.     MoveCursorTo STARTOF DOCUMENT 
  5709.     If cardname = hf
  5710.         SetWindowTitle "Fertig!"
  5711.     Else
  5712.         SetWindowTitle "Ready!"
  5713.     EndIf
  5714. * End of routine "LASC"
  5715. *************
  5716.  
  5717. *************
  5718. * Global routine "LASC2"
  5719.     WorkWithDocument "TheDoc"
  5720.     If cardname = hf
  5721.         SetWindowTitle "Bitte warten - Konvertiere Datei!"
  5722.     Else
  5723.         SetWindowTitle "Please wait - Converting file!"
  5724.     EndIf
  5725.     MoveCursorTo STARTOF DOCUMENT 
  5726.     MoveCursorTo STARTOF LINE 
  5727.     Let L=linesindocument
  5728.     Let TXL=thelinenumber
  5729.     Let q2=hextochars("22")
  5730.     Loop
  5731.         MoveCursorTo STARTOF LINE 
  5732.         Delete CHARACTER 
  5733.         MoveCursorTo ENDOF LINE 
  5734.         MoveCursor LEFT ,3
  5735.         Delete TOENDOFLINE 
  5736.         MoveCursorTo STARTOF LINE 
  5737.         Let iii = hextochars(theline)
  5738.         IfError
  5739.             StopScript
  5740.         EndIf
  5741.         Type iii,NEWLINE 
  5742.         ;    MoveCursor DOWN
  5743.         Delete LINE 
  5744.         Let TXL=TXL+1
  5745.         If TXL > L
  5746.             ExitLoop
  5747.         EndIf
  5748.     EndLoop
  5749.     Delete CHARACTER ,-1
  5750.     MoveCursorTo STARTOF DOCUMENT 
  5751.     If cardname = hf
  5752.         SetWindowTitle "Fertig!"
  5753.     Else
  5754.         SetWindowTitle "Ready!"
  5755.     EndIf
  5756. * End of routine "LASC2"
  5757. *************
  5758.  
  5759. *************
  5760. * Global routine "LAscii"
  5761.     WorkWithDocument "TheDoc"
  5762.     Clear DOCUMENT 
  5763.     Loop CNT,1,READCNT,32
  5764.         Loop CT,1,READCNT,32
  5765.             FileReadChars "WORKFILE",X,1
  5766.             If ASCII(X)<=32 OR (ASCII(X)>126 AND ASCII(X)<160)
  5767.                 Type Char(46)
  5768.             Else
  5769.                 Type Char(ASCII(X))
  5770.             EndIf
  5771.         EndLoop
  5772.         Type "",NEWLINE 
  5773.         ;Type "  "||FormatValue(CNT,"00000000")||"-"||FormatValue(CNT+25,"00000000"),NEWLINE
  5774.     EndLoop
  5775.     MoveCursorTo STARTOF DOCUMENT 
  5776.     
  5777. * End of routine "LAscii"
  5778. *************
  5779.  
  5780. *************
  5781. * Global routine "Lfile"
  5782.     Let READFILE=Arg1
  5783.     If READFILE<>""
  5784.         GetFileInfo READFILE,FILECNT
  5785.         If FILECNT>=1
  5786.             Let READCNT=FILECNT
  5787.             If cardname = hf
  5788.                 SetWindowTitle "Bitte warten - Konvertiere Datei!"
  5789.             Else
  5790.                 SetWindowTitle "Please wait - Converting file!"
  5791.             EndIf
  5792.             SetFileBufferSize 50
  5793.             OpenFile READFILE,"WORKFILE",READONLY ,OLDFILE 
  5794.             Do "LHEX"
  5795.             Close "WORKFILE"
  5796.         Else
  5797.             Quit
  5798.         EndIf
  5799.     EndIf
  5800.     
  5801. * End of routine "Lfile"
  5802. *************
  5803.  
  5804. *************
  5805. * Global routine "LHEX"
  5806.     WorkWithDocument "TheDoc"
  5807.     MoveCursorTo STARTOF DOCUMENT 
  5808.     Loop CNT,1,READCNT,16
  5809.         MoveCursorTo STARTOF LINE 
  5810.         FileReadChars "WORKFILE",X,4,HEX 
  5811.         Type X||Char(32)
  5812.         FileReadChars "WORKFILE",X,4,HEX 
  5813.         Type X||Char(32)
  5814.         FileReadChars "WORKFILE",X,4,HEX 
  5815.         Type X||Char(32)
  5816.         FileReadChars "WORKFILE",X,4,HEX 
  5817.         Type X||Char(32)||Char(32)
  5818.         ;MoveCursor DOWN ,1
  5819.         Type "",NEWLINE 
  5820.     EndLoop
  5821.     Delete CHARACTER ,-1
  5822.     
  5823. * End of routine "LHEX"
  5824. *************
  5825.  
  5826. *************
  5827. * Global routine "LHEX2"
  5828.     If cardname = hf
  5829.         SetWindowTitle "Bitte warten - Konvertiere Datei!"
  5830.     Else
  5831.         SetWindowTitle "Please wait - Converting file!"
  5832.     EndIf
  5833.     WorkWithDocument "TheDoc"
  5834.     MoveCursorTo STARTOF DOCUMENT 
  5835.     MoveCursorTo STARTOF LINE 
  5836.     Let L=linesindocument
  5837.     Let TXL=thelinenumber
  5838.     Loop
  5839.         Let nc=numberofchars(theline)
  5840.         If nc >120
  5841.             MoveCursor LEFT ,128
  5842.             SplitLine
  5843.             MoveCursor DOWN 
  5844.             MoveCursorTo STARTOF LINE 
  5845.             Let TXL=TXL+1
  5846.             If TXL > L
  5847.                 ExitLoop
  5848.             EndIf
  5849.         EndLoop
  5850.     EndIf
  5851.     WorkWithDocument "TheDoc"
  5852.     MoveCursorTo STARTOF DOCUMENT 
  5853.     MoveCursorTo STARTOF LINE 
  5854.     Let L=linesindocument
  5855.     Let TXL=thelinenumber
  5856.     Loop
  5857.         MoveCursorTo STARTOF LINE 
  5858.         Let iii = charstohex(theline)
  5859.         IfError
  5860.             ;    StopScript
  5861.         EndIf
  5862.         Type iii,NEWLINE 
  5863.         IfError
  5864.             ;StopScript
  5865.         EndIf
  5866.         Delete LINE 
  5867.         Let TXL=TXL+1
  5868.         If TXL > L
  5869.             ExitLoop
  5870.         EndIf
  5871.     EndLoop
  5872.     Delete CHARACTER ,-1
  5873.     MoveCursorTo STARTOF DOCUMENT 
  5874.     If cardname = hf
  5875.         SetWindowTitle "Fertig!"
  5876.     Else
  5877.         SetWindowTitle "Ready!"
  5878.     EndIf
  5879. * End of routine "LHEX2"
  5880. *************
  5881.  
  5882. *************
  5883. * Global routine "LHEX3"
  5884.     If cardname = hf
  5885.         SetWindowTitle "Bitte warten - Konvertiere Datei!"
  5886.     Else
  5887.         SetWindowTitle "Please wait - Converting file!"
  5888.     EndIf
  5889.     Do "LHEX2"
  5890.     WorkWithDocument "TheDoc"
  5891.     MoveCursorTo STARTOF DOCUMENT 
  5892.     MoveCursorTo STARTOF LINE 
  5893.     Let L=linesindocument
  5894.     Let TXL=thelinenumber
  5895.     Loop
  5896.         MoveCursorTo STARTOF LINE 
  5897.         Type "9"
  5898.         MoveCursorTo ENDOF LINE 
  5899.         Type "912";,NEWLINE
  5900.         MoveCursor DOWN 
  5901.         IfError
  5902.             ;    StopScript
  5903.         EndIf
  5904.         ;Delete LINE
  5905.         Let TXL=TXL+1
  5906.         If TXL > L
  5907.             ExitLoop
  5908.         EndIf
  5909.     EndLoop
  5910.     Delete CHARACTER ,-1
  5911.     MoveCursorTo STARTOF DOCUMENT 
  5912.     If cardname = hf
  5913.         SetWindowTitle "Fertig!"
  5914.     Else
  5915.         SetWindowTitle "Ready!"
  5916.     EndIf
  5917.     MoveCursorTo STARTOF DOCUMENT 
  5918.     
  5919. * End of routine "LHEX3"
  5920. *************
  5921.  
  5922. *************
  5923. * Global routine "Ltext"
  5924.     SetWindowTitle ""
  5925.     WorkWithDocument "TheDoc"
  5926.     Clear DOCUMENT 
  5927.     Let ahf=AskForFilename(NeueDatei,"ASCII/HEX Datei laden...","155","39","340","180")
  5928.     If exists(ahf)
  5929.         ;    LoadDocument ahf,"TheDoc"
  5930.         IfError
  5931.         EndIf
  5932.     EndIf
  5933.     IfError
  5934.     EndIf
  5935.     Let THEFILE= ahf
  5936.     If FileOf(THEFILE)<>NOTHING
  5937.         Do "LFILE",ahf
  5938.         IfError
  5939.         EndIf
  5940.     Else
  5941.         Quit
  5942.     EndIf
  5943.     
  5944.     
  5945.     
  5946.     
  5947. * End of routine "Ltext"
  5948. *************
  5949.  
  5950. *************
  5951. * Global routine "Löschen"
  5952.     If Arg1 = FALSE
  5953.     Else
  5954.         WorkWithDocument "TheDoc"
  5955.         Clear DOCUMENT 
  5956.     EndIf
  5957. * End of routine "Löschen"
  5958. *************
  5959.  
  5960. *************
  5961. * Global routine "MarkB"
  5962.     WorkWithDocument "d2"
  5963.     Clear DOCUMENT 
  5964.     WorkWithDocument "TheDoc"
  5965.     MoveCursorTo STARTOF LINE 
  5966.     Let d=0
  5967.     Let m=1
  5968.     Let n=1
  5969.     SetInteger "home",thelinenumber
  5970.     Let bs=TheLineNumber
  5971.     Let cl=TheLineNumber
  5972.     UseColoredLines true
  5973.     SetLineAttribute COLOR ,4,1
  5974.     Do "report"
  5975.     Let ol=IntegerFrom("home");oldline
  5976.     
  5977.     
  5978.     
  5979. * End of routine "MarkB"
  5980. *************
  5981.  
  5982. *************
  5983. * Global routine "MarkB2"
  5984.     WorkWithDocument "d2"
  5985.     Clear DOCUMENT 
  5986.     WorkWithDocument "TheDoc"
  5987.     MoveCursorTo STARTOF DOCUMENT 
  5988.     MoveCursorTo STARTOF LINE 
  5989.     Let L=linesindocument
  5990.     Let TXL=thelinenumber
  5991.     UseColoredLines true
  5992.     SetLineAttribute COLOR ,4,1
  5993.     Do "report"
  5994.     Loop
  5995.         MoveCursor DOWN 
  5996.         SetLineAttribute COLOR ,4,1
  5997.         Do "report"
  5998.         IfError
  5999.             Let err = askforresponse("Error: Sorry unknown error...", "Textloader Information", " OK ")
  6000.             ExitScript
  6001.         EndIf
  6002.         Let TXL=TXL+1
  6003.         If TXL > L
  6004.             ExitLoop
  6005.         EndIf
  6006.     EndLoop
  6007.     
  6008.     ;Code by J.Grus
  6009. * End of routine "MarkB2"
  6010. *************
  6011.  
  6012. *************
  6013. * Global routine "Marke"
  6014.     WorkWithDocument "TheDoc"
  6015.     MoveCursorTo STARTOF DOCUMENT 
  6016.     MoveCursorTo STARTOF LINE 
  6017.     Let L=linesindocument
  6018.     Let TXL=thelinenumber
  6019.     If Objectstate("AMarke2") =true
  6020.         Loop
  6021.             MoveCursorTo ENDOF LINE 
  6022.             Type "¶"
  6023.             MoveCursor DOWN 
  6024.             IfError
  6025.                 Let err = askforresponse("Unbekannter Fehler aufgetreten...", "Textloader Information", " OK ")
  6026.                 ExitScript
  6027.             EndIf
  6028.             Let TXL=TXL+1
  6029.             If TXL > L
  6030.                 ExitLoop
  6031.             EndIf
  6032.         EndLoop
  6033.     Else
  6034.         Loop
  6035.             MoveCursorTo ENDOF LINE 
  6036.             MoveCursor LEFT 
  6037.             Delete CHARACTER 
  6038.             MoveCursor DOWN 
  6039.             IfError
  6040.                 Let err = askforresponse("Unbekannter Fehler aufgetreten...", "Textloader Information", " OK ")
  6041.                 ExitScript
  6042.             EndIf
  6043.             Let TXL=TXL+1
  6044.             If TXL > L
  6045.                 ExitLoop
  6046.             EndIf
  6047.         EndLoop
  6048.     EndIf
  6049.     MoveCursorTo STARTOF DOCUMENT 
  6050.     
  6051.     ;Code by J.Grus - Example to set the endmark to lines... ©1997
  6052. * End of routine "Marke"
  6053. *************
  6054.  
  6055. *************
  6056. * Global routine "Marke2"
  6057.     WorkWithDocument "TheDoc"
  6058.     MoveCursorTo STARTOF DOCUMENT 
  6059.     MoveCursorTo STARTOF LINE 
  6060.     Let L=linesindocument
  6061.     Let TXL=thelinenumber
  6062.     If Objectstate("AMarke2") =true
  6063.         Loop
  6064.             MoveCursorTo ENDOF LINE 
  6065.             MoveCursor LEFT 
  6066.             Delete CHARACTER 
  6067.             MoveCursor DOWN 
  6068.             IfError
  6069.                 Let err = askforresponse("Unbekannter Fehler aufgetreten...", "Textloader Information", " OK ")
  6070.                 ExitScript
  6071.             EndIf
  6072.             Let TXL=TXL+1
  6073.             If TXL > L
  6074.                 ExitLoop
  6075.             EndIf
  6076.         EndLoop
  6077.     Else
  6078.         Loop
  6079.             MoveCursorTo ENDOF LINE 
  6080.             Type ""
  6081.             MoveCursor DOWN 
  6082.             IfError
  6083.                 Let err = askforresponse("Unbekannter Fehler aufgetreten...", "Textloader Information", " OK ")
  6084.                 ExitScript
  6085.             EndIf
  6086.             Let TXL=TXL+1
  6087.             If TXL > L
  6088.                 ExitLoop
  6089.             EndIf
  6090.         EndLoop
  6091.     EndIf
  6092.     MoveCursorTo STARTOF DOCUMENT 
  6093.     
  6094.     ;Code by J.Grus - Example2 to set the endmark to lines... ©1997
  6095. * End of routine "Marke2"
  6096. *************
  6097.  
  6098. *************
  6099. * Global routine "Message"
  6100.     Do "SetzeAttr"
  6101.     PrintText CenterString(Arg1,43),12,15
  6102.     PrintText CenterString(Arg2,43),12,25
  6103.     PrintText CenterString(Arg3,43),12,35
  6104.     PrintText CenterString(Arg4,43),12,45
  6105. * End of routine "Message"
  6106. *************
  6107.  
  6108. *************
  6109. * Global routine "MovCur"
  6110.     Let c=thecolumnnumber
  6111.     While c<lm-1
  6112.         Let c=thecolumnnumber
  6113.         Type char(32)
  6114.     EndLoop
  6115.     
  6116.     
  6117.     
  6118.     
  6119. * End of routine "MovCur"
  6120. *************
  6121.  
  6122. *************
  6123. * Global routine "OnEd"
  6124.     SetObjectState "dokument",on
  6125.     SetPointer
  6126.     
  6127.     
  6128.     
  6129. * End of routine "OnEd"
  6130. *************
  6131.  
  6132. *************
  6133. * Global routine "Paste"
  6134.     Let paste=false
  6135.     InsertDocument "d2"
  6136.     Let ds=0
  6137.     Let bs=0
  6138.     Do "MovCur"
  6139.     Do "OnEd"
  6140.     Do "CurPlace"
  6141.     
  6142.     
  6143.     
  6144.     
  6145.     
  6146. * End of routine "Paste"
  6147. *************
  6148.  
  6149. *************
  6150. * Global routine "Refresh2"
  6151.     MoveCursorTo STARTOF DOCUMENT 
  6152.     ReplaceAttribute GLOBAL ,2,1
  6153.     MoveCursorTo STARTOF DOCUMENT 
  6154.     MoveCursor DOWN ,cl||""-1
  6155.     MoveCursor RIGHT ,cm-1; **NEW**
  6156.     Let m=0
  6157.     Let n=0
  6158.     UseColoredLines off
  6159. * End of routine "Refresh2"
  6160. *************
  6161.  
  6162. *************
  6163. * Global routine "Report"
  6164.     Let a=theline
  6165.     WorkWithDocument "d2"
  6166.     Type a||"",NEWLINE 
  6167.     WorkWithDocument "TheDoc"
  6168.     
  6169.     ;Code by J.Grus - Übergeben der selektierten Zeilen...
  6170. * End of routine "Report"
  6171. *************
  6172.  
  6173. *************
  6174. * Global routine "RTF1"
  6175.     Let r1 ="{\rtf2\ansi {\fonttbl{\f0\fnil Arial;}"
  6176.     Let r2="}{\stylesheet{\s0 \plain \fs28 \f0 \ql \fi0 \li0 \ri0 \sb0 \sa0 \sl280 Normal;}"
  6177.     Let r3="{\s1 \plain \fs22 \f0 \ql \fi-720 \li720 \ri0 \sb0 \sa0 \sl220 Fuß-/Endnoten;}"
  6178.     Let r4="{\s2 \plain \fs28 \f0 \ql \fi0 \li0 \ri0 \sb0 \sa0 \sl280 Tabelle;}"
  6179.     Let r5="}\paperw11908 \paperh16866 \margl720 \margr720 \margt720 \margb1872 "
  6180.     Let r6="\ftnbj \ftnstart1 "
  6181.     Let r7="\pard \plain \s0 \fs28 \f0 "
  6182.     Type r1,NEWLINE 
  6183.     Type r2,NEWLINE 
  6184.     Type r3,NEWLINE 
  6185.     Type r4,NEWLINE 
  6186.     Type r5,NEWLINE 
  6187.     Type r6,NEWLINE 
  6188.     Type r7,NEWLINE 
  6189. * End of routine "RTF1"
  6190. *************
  6191.  
  6192. *************
  6193. * Global routine "RTF2"
  6194.     Let r8="\par \pard \plain \s0 \fs28 \"
  6195.     Type r8,NEWLINE 
  6196. * End of routine "RTF2"
  6197. *************
  6198.  
  6199. *************
  6200. * Global routine "RTF3"
  6201.     Let r9="\par {\header \pard \plain \s0 \fs28 \f0 \par }{\footer \pard \plain \s0 \fs28 \f0 \par }}"
  6202.     Type r9
  6203. * End of routine "RTF3"
  6204. *************
  6205.  
  6206. *************
  6207. * Global routine "S"
  6208.     Let hf="Hauptfenster"
  6209.     If cardname = hf
  6210.         OpenRequester "SuchReq","Card_1","Suchen"
  6211.     Else
  6212.         OpenRequester "SuchReq","Card_2","Suchen"
  6213.     EndIf
  6214. * End of routine "S"
  6215. *************
  6216.  
  6217. *************
  6218. * Global routine "SetzeAttr"
  6219.     SetPrintFont "topaz",8
  6220.     SetPrintStyle PLAIN ,2,3
  6221.     SetPen 1,0
  6222.     SetDrawMode JAM2 
  6223. * End of routine "SetzeAttr"
  6224. *************
  6225.  
  6226. *************
  6227. * Global routine "SF"
  6228.     WorkWithDocument "TheDoc"
  6229.     If MyByword=TRUE AND MyNocase=TRUE
  6230.         SearchFor Suchwort,BYWORD NOCASE 
  6231.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  6232.         SearchFor Suchwort
  6233.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  6234.         SearchFor Suchwort,BYWORD 
  6235.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  6236.         SearchFor Suchwort,NOCASE 
  6237.     EndIf
  6238.     If SearchFound=TRUE
  6239.         Let hf="Hauptfenster"
  6240.         If cardname = hf
  6241.             SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  6242.         Else
  6243.             SetWindowTitle "Searched:"|||Suchwort||"  "||"Line:"||TheLineNumber|||"Row:"||TheColumnNumber
  6244.         EndIf
  6245.         SetObjectState "Dokument",on
  6246.     Else
  6247.         Do "Beep"
  6248.         If cardname = hf
  6249.             SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  6250.         Else
  6251.             SetWindowTitle "No more words with """||Suchwort||""" found in text..."
  6252.         EndIf
  6253.     EndIf
  6254. * End of routine "SF"
  6255. *************
  6256.  
  6257. *************
  6258. * Global routine "Sicherheitsabfrage"
  6259.     Nop
  6260. * End of routine "Sicherheitsabfrage"
  6261. *************
  6262.  
  6263. *************
  6264. * Global routine "SichernVorBeenden"
  6265.     SetFileRequestMode SAVEFILEMODE ,NONE 
  6266.     Let hf="Hauptfenster"
  6267.     If cardname = hf
  6268.         Let Arg1=AskForFilename("","Text noch schnell sichern...","155","39","340","180")
  6269.     Else
  6270.         Let Arg1=AskForFilename("","Text will be saved...","155","39","340","180")
  6271.     EndIf
  6272.     Let Antwort = Arg1
  6273.     If Antwort <> ""
  6274.         Let Dateispeichername = Antwort
  6275.         Let hf="Hauptfenster"
  6276.         If cardname = hf
  6277.             SetWindowTitle "Speichere nun im ASCII Format!"
  6278.         Else
  6279.             SetWindowTitle "Saving ASCII Format..."
  6280.         EndIf
  6281.         SaveDocument "TheDoc",Dateispeichername,ASCII 
  6282.         IfError
  6283.             Do "Fehlerroutine"
  6284.         EndIf
  6285.     EndIf
  6286.     Let hf="Hauptfenster"
  6287.     If cardname = hf
  6288.         SetWindowTitle "Bis zum nächsten mal, tschüss!"
  6289.     Else
  6290.         SetWindowTitle "See you again..."
  6291.     EndIf
  6292.     Delay 0,5,1/50
  6293.     Quit
  6294. * End of routine "SichernVorBeenden"
  6295. *************
  6296.  
  6297. *************
  6298. * Global routine "Suchen"
  6299.     Let Suchwort=Arg1
  6300.     Let MyByword=Arg2
  6301.     Let MyNocase=Arg3
  6302.     WorkWithDocument "TheDoc"
  6303.     If MyByword=TRUE AND MyNocase=TRUE
  6304.         SearchFor Suchwort,BYWORD NOCASE 
  6305.     ElseIf MyByword=FALSE AND MyNocase=FALSE
  6306.         SearchFor Suchwort
  6307.     ElseIf MyByword=TRUE AND MyNocase=FALSE
  6308.         SearchFor Suchwort,BYWORD 
  6309.     ElseIf MyByword=FALSE AND MyNocase=TRUE
  6310.         SearchFor Suchwort,NOCASE 
  6311.     EndIf
  6312.     If SearchFound=TRUE
  6313.         Let hf="Hauptfenster"
  6314.         If cardname = hf
  6315.             SetWindowTitle "Suchwort:"|||Suchwort||"  "||"Zeile:"||TheLineNumber|||"Spalte:"||TheColumnNumber
  6316.         Else
  6317.             SetWindowTitle "Searched:"|||Suchwort||"  "||"Line:"||TheLineNumber|||"Row:"||TheColumnNumber
  6318.         EndIf
  6319.         SetObjectState "Dokument",on
  6320.     Else
  6321.         Do "Beep"
  6322.         If cardname = hf
  6323.             SetWindowTitle "Kann """||Suchwort||""" nicht (mehr) finden !"
  6324.         Else
  6325.             SetWindowTitle "No more words with """||Suchwort||""" found in text..."
  6326.         EndIf
  6327.     EndIf
  6328. * End of routine "Suchen"
  6329. *************
  6330.  
  6331. *************
  6332. * Global routine "SysInfoUpdates"
  6333.     MakeDocument "ChangeDateFormat"
  6334.     Type ""||TheDate
  6335.     MoveCursorTo STARTOF DOCUMENT 
  6336.     MoveCursorTo STARTOF LINE 
  6337.     MoveCursor RIGHT ,3
  6338.     SplitLine
  6339.     MoveCursor RIGHT ,3
  6340.     SplitLine
  6341.     PositionOnLine 1
  6342.     Let Monat = TheLine
  6343.     PositionOnLine 2
  6344.     Let Tag = TheLine
  6345.     PositionOnLine 3
  6346.     Let Jahr = TheLine
  6347.     MakeDocument "DisplayChange"
  6348.     Type ""||Tag||Monat||Jahr
  6349.     Let Datum = TextFromDocument("DisplayChange")
  6350.     Do "SetzeAttr"
  6351.     SetPen 2,1
  6352.     Let hf = "Hauptfenster"
  6353.     If cardname = hf
  6354.         PrintText "Heutiges Datum          :  """||Datum||"""",147,89
  6355.         PrintText "Aktuelle Uhrzeit        :  """||TheTime||"""",147,99
  6356.     Else
  6357.         PrintText "Date                :  """||Datum||"""",147,89
  6358.         PrintText "Time                :  """||TheTime||"""",147,99
  6359.     EndIf
  6360. * End of routine "SysInfoUpdates"
  6361. *************
  6362.  
  6363. *************
  6364. * Global routine "SysInfoUpdates2"
  6365.     Do "SetzeAttr"
  6366.     SetPen 2,1
  6367.     Let hf = "Hauptfenster"
  6368.     If cardname = hf
  6369.         PrintText "Verfügbarer (Chip) Ram  :  """||AvailableChipMemory||"""",147,29
  6370.         PrintText "Verfügbarer (Fast) Ram  :  """||AvailableFastMemory||"""",147,39
  6371.         PrintText "Chip+Fast (GesamtMem)   :  """||AvailableMemory||"""",147,59
  6372.         PrintText "Betriebssystem, Test... :  Revision """||IntuitionVersion||"""",147,79
  6373.     Else
  6374.         PrintText "Available ChipRam  :  """||AvailableChipMemory||"""",147,29
  6375.         PrintText "Available FastRam  :  """||AvailableFastMemory||"""",147,39
  6376.         PrintText "Chip/Fast Memory   :  """||AvailableMemory||"""",147,59
  6377.         PrintText "AmigaOS Version    :  Revision """||IntuitionVersion||"""",147,79
  6378.     EndIf
  6379. * End of routine "SysInfoUpdates2"
  6380. *************
  6381.  
  6382. *************
  6383. * Global routine "Timing"
  6384.     WorkWithDocument "TheDoc"
  6385.     Let hf="Hauptfenster"
  6386.     If cardname = hf
  6387.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||SizeOfDocument||""""
  6388.     Else
  6389.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||SizeOfDocument||""""
  6390.     EndIf
  6391.     SetObjectState "Dokument",on
  6392. * End of routine "Timing"
  6393. *************
  6394.  
  6395. *************
  6396. * Global routine "Timing2"
  6397.     WorkWithDocument "TheDoc"
  6398.     Let hf="Hauptfenster"
  6399.     If cardname = hf
  6400.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheCharacter||""""
  6401.     Else
  6402.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||TheCharacter||""""
  6403.     EndIf
  6404. * End of routine "Timing2"
  6405. *************
  6406.  
  6407. *************
  6408. * Global routine "Timing3"
  6409.     WorkWithDocument "TheDoc"
  6410.     Let hf="Hauptfenster"
  6411.     If cardname = hf
  6412.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheColumnNumber||""""
  6413.     Else
  6414.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||TheColumnNumber||""""
  6415.     EndIf
  6416. * End of routine "Timing3"
  6417. *************
  6418.  
  6419. *************
  6420. * Global routine "Timing4"
  6421.     WorkWithDocument "TheDoc"
  6422.     Let hf="Hauptfenster"
  6423.     If cardname = hf
  6424.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||TheLineNumber||""""
  6425.     Else
  6426.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||TheLineNumber||""""
  6427.     EndIf
  6428. * End of routine "Timing4"
  6429. *************
  6430.  
  6431. *************
  6432. * Global routine "Timing5"
  6433.     WorkWithDocument "TheDoc"
  6434.     Let hf="Hauptfenster"
  6435.     If cardname = hf
  6436.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||LinesInDocument||""""
  6437.     Else
  6438.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||LinesInDocument||""""
  6439.     EndIf
  6440. * End of routine "Timing5"
  6441. *************
  6442.  
  6443. *************
  6444. * Global routine "Timing8"
  6445.     WorkWithDocument "TheDoc"
  6446.     Let hf="Hauptfenster"
  6447.     If cardname = hf
  6448.         OpenRequester "SimpleReq","Kommentar","","Statistik...",""""||IntuitionVersion||""""
  6449.     Else
  6450.         OpenRequester "SimpleReq","Kommentar","","Statistics...",""""||IntuitionVersion||""""
  6451.     EndIf
  6452. * End of routine "Timing8"
  6453. *************
  6454.  
  6455. *************
  6456. * Global routine "TitelUhr"
  6457.     Do "SetzeAttr"
  6458.     GetTextDimensions """"""""||TheTime,Large,ZE
  6459.     SetPen 2
  6460.     PrintText """"||TheTime||"""",Windowwidth-Large-40,(Windowbordertop/2)-4
  6461. * End of routine "TitelUhr"
  6462. *************
  6463.  
  6464. *************
  6465. * Global routine "Undos"
  6466.     WorkWithDocument "TheDoc"
  6467.     ;Let c=theColumnNumber
  6468.     MakeDocument "Goil"
  6469.     Let XXXX=Goil
  6470.     WorkWithDocument "Goil"
  6471.     InsertDocument "TheDoc",1
  6472.     WorkWithDocument "TheDoc"
  6473.     ;11/98 by J.Grus & M.Gentile - virtuelles Undo
  6474.     ;this replaces the "Ram undo" with an internal version...
  6475. * End of routine "Undos"
  6476. *************
  6477.  
  6478. *************
  6479. * Global routine "wend"
  6480.     Let w04=hextochars("575441420000000057545854000000010f0057464f5400000006030100000000575041520000002400008ca000008ca0")
  6481.     Let w05=hextochars("00008ca000008ca00004000000ff0000000000000000000020000001575441420000000057545854000000010f00464f")
  6482.     Let w06=hextochars("524d0000001c47544944464f524d0000000447544d50464f524d00000004475449504700000000000000000000000000")
  6483.     Let w3=w04||w05||w06
  6484. * End of routine "wend"
  6485. *************
  6486.  
  6487. *************
  6488. * Global routine "wMarke"
  6489.     WorkWithDocument "TheDoc"
  6490.     MoveCursorTo STARTOF DOCUMENT 
  6491.     MoveCursorTo STARTOF LINE 
  6492.     Let L=linesindocument+7
  6493.     Let TXL=thelinenumber
  6494.     MakeDocument "RTF"
  6495.     WorkWithDocument "RTF"
  6496.     Do "rtf1"
  6497.     InsertDocument "TheDoc"
  6498.     MoveCursorTo STARTOF DOCUMENT 
  6499.     MoveCursor DOWN ,8
  6500.     If L=L+1
  6501.         Do "rtf3"
  6502.     Else
  6503.         Loop
  6504.             MoveCursorTo ENDOF LINE 
  6505.             Do "rtf2"
  6506.             MoveCursor DOWN 
  6507.             IfError
  6508.                 Let err = askforresponse("Unbekannter Fehler aufgetreten...", "Textloader Information", " OK ")
  6509.                 ExitScript
  6510.             EndIf
  6511.             Let TXL=TXL+1
  6512.             If TXL > L-1
  6513.                 ExitLoop
  6514.             EndIf
  6515.         EndLoop
  6516.         Do "rtf3"
  6517.     EndIf
  6518.     
  6519.     ;Code by J.Grus - RTF Saver for TLoader 7.x ©1999
  6520.     
  6521. * End of routine "wMarke"
  6522. *************
  6523.  
  6524. *************
  6525. * Global routine "wMarke-1"
  6526.     Let ww1="sys:cando/textloader/drivers/WW_1"
  6527.     Let ww2="sys:cando/textloader/drivers/WW_2"
  6528.     Let ww3="sys:cando/textloader/drivers/WW_3"
  6529.     WorkWithDocument "THEDOC"
  6530.     SaveDocument "TheDoc","RAM:WW4"
  6531.     Dos "JOIN SYS:CANDO/TEXTLOADER/DRIVERS/WW_1 RAM:WW4 sys:cando/textloader/drivers/WW_2a to ram:test"
  6532.     
  6533.     ;WW7 Saver - not finished now!!!
  6534.     
  6535. * End of routine "wMarke-1"
  6536. *************
  6537.  
  6538. *************
  6539. * Global routine "wMarke1"
  6540.     WorkWithDocument "TheDoc"
  6541.     OpenFile "t:WW","dinfo",WRITEONLY ,NEWFILE 
  6542.     SetStandardOut "dinfo"
  6543.     Let w1=hextochars("0f00")
  6544.     Let w10=hextochars("00000000")
  6545.     Let w2=hextochars("5750")
  6546.     Let w3=hextochars("4152")
  6547.     Let w4=hextochars("0000")
  6548.     Let w5=hextochars("41520000002400008ca000008ca000008ca000008ca00004000000ff0000000000000000000020000001575458540000000e2e000000000000000000")
  6549.     ;Let w1=hextochars("0f00575041520000002400008ca000008ca000008ca000008ca00004000000ff0000000000000000000020000001575458540000000e2e000000000000000000")
  6550.     Echo w1,NOLINE 
  6551.     Echo w10,NOLINE 
  6552.     Echo w2,NOLINE 
  6553.     Echo w3,NOLINE 
  6554.     Echo w4,NOLINE 
  6555.     Echo w5
  6556.     Close "dinfo"
  6557.     MakeDocument "ww"
  6558.     WorkWithDocument "ww"
  6559.     LoadDocument "RAM:T/WW","ww"
  6560.     ;MoveCursorTo STARTOF DOCUMENT
  6561.     ;MoveCursorTo STARTOF LINE
  6562.     ;Let w1=hextochars("0f00575041520000002400008ca000008ca000008ca000008ca00004000000ff0000000000000000000020000001575458540000000e2e000000000000000000")
  6563.     ;Type w1
  6564.     ;InsertDocument "thedoc"
  6565.     SaveDocument "ww","ram:test",ASCII 
  6566.     ;Code by J.Grus - Example to set the endmark to lines... ©1997
  6567.     
  6568.     
  6569.     
  6570.     
  6571. * End of routine "wMarke1"
  6572. *************
  6573.  
  6574. *************
  6575. * Global routine "wneuz"
  6576.     Let w02=hextochars("575458540000000e7761732068696572206c6f733f0f5748454400000006030100000000575041520000002400008ca0")
  6577.     Let w03=hextochars("00008ca000008ca000008ca00004000000ff00000000000000000000200000012e000000000000000000000000000000")
  6578.     Let w2=w02||w03
  6579. * End of routine "wneuz"
  6580. *************
  6581.  
  6582. *************
  6583. * Global routine "wvor"
  6584.     Let w1=hextochars("0f00575041520000002400008ca000008ca000008ca000008ca00004000000ff0000000000000000000020000001575458540000000e2e000000000000000000")
  6585.     SetText "z1",w1
  6586. * End of routine "wvor"
  6587. *************
  6588.  
  6589.